4.1.0.1 (a sin)^m (b trg)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    494446,      10185]
NotebookOptionsPosition[    483397,       9903]
NotebookOutlinePosition[    485155,       9957]
CellTagsIndexPosition[    485112,       9954]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["0:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{"u", 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, {3.5633941071945558`*^9, 3.563394113084564*^9}, {
   3.5633946475353127`*^9, 3.5633946613453317`*^9}, {3.5633963928077555`*^9, 
   3.5633963931377563`*^9}, {3.563396687078168*^9, 3.5633966873581676`*^9}, {
   3.5633968368983774`*^9, 3.5633968388183804`*^9}, {3.5634007192983603`*^9, 
   3.563400719518361*^9}, {3.563401058258835*^9, 3.563401058478835*^9}, {
   3.563401805429881*^9, 3.5634018157698956`*^9}, {3.563669338730335*^9, 
   3.5636693467331495`*^9}, {3.5673642739754224`*^9, 3.567364281495433*^9}, {
   3.5674488109192443`*^9, 3.5674488109192443`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"TrueQ", "[", "$LoadShowSteps", "]"}], ",", "\n", "\n", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{"u_", ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"DeactivateTrig", "[", 
        RowBox[{"u", ",", "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
     RowBox[{"SimplifyFlag", " ", "&&", " ", 
      RowBox[{"FunctionOfTrigOfLinearQ", "[", 
       RowBox[{"u", ",", "x"}], "]"}]}]}]}], ",", "\n", "\n", 
   RowBox[{
    RowBox[{"Int", "[", 
     RowBox[{"u_", ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
    RowBox[{
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"DeactivateTrig", "[", 
        RowBox[{"u", ",", "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
     RowBox[{"FunctionOfTrigOfLinearQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}]}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.5098474835889254`*^9, {
   3.5099092953540363`*^9, 3.5099092985832415`*^9}, {3.509909366989362*^9, 
   3.5099093682997637`*^9}, {3.509909434849481*^9, 3.509909436643484*^9}, {
   3.511224412138645*^9, 3.511224459952729*^9}, {3.5112247828212953`*^9, 
   3.5112247891081057`*^9}, {3.5153733055764923`*^9, 
   3.5153733240469246`*^9}, {3.547954326143468*^9, 3.5479543280154715`*^9}, {
   3.5745492283552675`*^9, 3.5745492371052794`*^9}, 3.735588815702188*^9, 
   3.735600355599266*^9, 3.737503808416898*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Trg", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9, 
   3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
   3.57585284254686*^9, 3.575852895956935*^9}, {3.575853026617118*^9, 
   3.575853038617135*^9}, {3.575853153907296*^9, 3.575853185757341*^9}, {
   3.575853290447487*^9, 3.575853290447487*^9}, {3.5758553923824325`*^9, 
   3.5758553923824325`*^9}, {3.584065420110304*^9, 3.584065420110304*^9}, {
   3.5840681647441463`*^9, 3.5840681647441463`*^9}, {3.597025735088087*^9, 
   3.5970257398148956`*^9}, {3.61180769286159*^9, 3.6118076944826827`*^9}, {
   3.611893421298149*^9, 3.61189342185815*^9}, {3.6165273275171223`*^9, 
   3.616527349017153*^9}, {3.6589593982836084`*^9, 3.6589593982836084`*^9}, {
   3.6752686482691746`*^9, 3.6752686482691746`*^9}, {3.675268884329676*^9, 
   3.675268884329676*^9}, {3.6772140863140616`*^9, 3.6772140863140616`*^9}, {
   3.691626171215994*^9, 3.691626171215994*^9}, {3.6916311449762383`*^9, 
   3.6916311449762383`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.664827176443964*^9, 
   3.664827177297013*^9}, {3.6652446551943626`*^9, 3.6652446553659625`*^9}, {
   3.665280730478092*^9, 3.6652807369707036`*^9}, {3.665535368260048*^9, 
   3.6655353811100655`*^9}, 3.6655983811913023`*^9, {3.675268773444334*^9, 
   3.6752688025980015`*^9}, 3.675268890045003*^9, 3.6916254239112506`*^9, 
   3.6916257369651566`*^9, 3.691625979*^9, {3.6916261504198046`*^9, 
   3.691626162291484*^9}, {3.6916311301862173`*^9, 3.691631149946245*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.56209392087083*^9, 3.5620939403408575`*^9}, {
   3.562101080295953*^9, 3.5621010808759537`*^9}, {3.5633361457246733`*^9, 
   3.5633361457446737`*^9}, {3.5633897540359592`*^9, 3.5633897564359627`*^9}, 
   3.563397022158637*^9, {3.563910901728743*^9, 3.563910901898743*^9}, {
   3.564071455493452*^9, 3.564071455753467*^9}, 3.5967429675184207`*^9, 
   3.613154211362005*^9, {3.6647510214380755`*^9, 3.6647510214490767`*^9}, 
   3.664812302765835*^9, 3.664825421266574*^9, {3.665244652074357*^9, 
   3.665244652339557*^9}, 3.6752688181898932`*^9, 3.6752690656600475`*^9, {
   3.675269426839706*^9, 3.675269426839706*^9}, 3.677214093092449*^9, 
   3.6773007059707108`*^9, 3.691625424519285*^9, 3.6916257374771852`*^9, {
   3.6916259799910564`*^9, 3.6916259808981085`*^9}, 3.6916261942873135`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Reference: G&R 2.510.3, CRC 334a, A&S 4.3.128b with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
    3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
    3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
    3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
    3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
    3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
    3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
    3.4976395477133703`*^9}, {3.4977276351693482`*^9, 3.497727644763365*^9}, {
    3.497727950523902*^9, 3.4977279522711053`*^9}, {3.499131609862951*^9, 
    3.499131627792976*^9}, {3.5633361457546735`*^9, 3.5633361457846737`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9, 3.4977284496435795`*^9, {3.5633367916855783`*^9, 
   3.5633368142756095`*^9}, {3.6752694276707535`*^9, 
   3.6752694276707535`*^9}, {3.691625981889165*^9, 3.691625981889165*^9}}],

Cell[TextData[{
 "Reference: G&R 2.510.6, CRC 334b, A&S 4.3.128a",
 " with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
    3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
    3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
    3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
    3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
    3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
    3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
    3.4976395477133703`*^9}, {3.4977276351693482`*^9, 3.497727644763365*^9}, {
    3.497727950523902*^9, 3.4977279522711053`*^9}, {3.499131609862951*^9, 
    3.499131627792976*^9}, {3.5633361457546735`*^9, 3.5633361457846737`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9, 3.4977284496435795`*^9, 3.4979921349613705`*^9, 
   3.5633368183856153`*^9, {3.675269428397795*^9, 3.675269428398795*^9}, {
   3.6916259829292245`*^9, 3.6916259829292245`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.4977276559485846`*^9, 3.4977276831862326`*^9}, {
   3.4979913869868565`*^9, 3.497991388203659*^9}, {3.562093926440838*^9, 
   3.5620939281108403`*^9}, {3.563389762815972*^9, 3.563389762815972*^9}, {
   3.675269429374851*^9, 3.675269429374851*^9}, {3.691625984137294*^9, 
   3.691625984137294*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"n", "+", "1"}]]}], 
      RowBox[{"a", " ", "b", " ", "f", " ", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.4977276351693482`*^9, 3.497727644763365*^9}, {
   3.497727950523902*^9, 3.4977279522711053`*^9}, {3.499131609862951*^9, 
   3.499131627792976*^9}, {3.5633361457546735`*^9, 3.5633361457846737`*^9}, 
   3.5967428488182545`*^9, {3.596742926018362*^9, 3.5967429311883698`*^9}, {
   3.6647510214720774`*^9, 3.664751021495079*^9}, 3.6647513498558598`*^9, {
   3.6648254212805743`*^9, 3.6648254212845745`*^9}, 3.664825637034915*^9, 
   3.6752690672441387`*^9, 3.675269430083892*^9, {3.675269697974214*^9, 
   3.6752696989082675`*^9}, 3.6752699441162925`*^9, {3.6916254286005187`*^9, 
   3.691625429789587*^9}, {3.6916257381422234`*^9, 3.6916257396293087`*^9}, {
   3.691625984904338*^9, 3.691625985800389*^9}, 3.691626194474324*^9, 
   3.6916285087026906`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691625740844378*^9, 3.6916259059968243`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "b", "*", "f", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "2"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.497727597947683*^9, 
   3.4979913639144163`*^9, {3.4991316098729506`*^9, 3.4991316278029757`*^9}, {
   3.563336145794674*^9, 3.563336145814674*^9}, {3.563393580831319*^9, 
   3.5633935973113413`*^9}, 3.5639111105790353`*^9, {3.596742973268429*^9, 
   3.596742984288444*^9}, {3.596743015518488*^9, 3.5967430310285096`*^9}, {
   3.664751046302498*^9, 3.6647510463114986`*^9}, {3.664751084206666*^9, 
   3.6647510842156663`*^9}, 3.664751262236849*^9, 3.664751305515324*^9, 
   3.664825446607023*^9, 3.6648254830311065`*^9, 3.664825553893159*^9, 
   3.6648256069421935`*^9, {3.6752691498578634`*^9, 3.6752691582123413`*^9}, {
   3.675269431028946*^9, 3.675269431596978*^9}, 3.6752695491277003`*^9, 
   3.6752695850697565`*^9, {3.6752697829890766`*^9, 3.675269783709118*^9}, 
   3.675269825638516*^9, 3.6752698835258265`*^9, 3.675269961941312*^9, {
   3.6752700429849477`*^9, 3.675270045052066*^9}, {3.691625430489627*^9, 
   3.6916254330557737`*^9}, {3.691625741351407*^9, 3.6916257426704826`*^9}, 
   3.6916258865937147`*^9, {3.6916259864254246`*^9, 3.691625988199526*^9}, 
   3.691628002687748*^9, {3.6916280725707455`*^9, 3.6916280761289487`*^9}, {
   3.691628283238795*^9, 3.6916282856799345`*^9}, {3.7049862507386775`*^9, 
   3.7049862739060025`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       FractionBox[
        RowBox[{"n", "-", "1"}], "2"], "\[Element]", 
       "\[DoubleStruckCapitalZ]"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093948760869*^9, 3.5620939538408766`*^9}, {
   3.562101082145955*^9, 3.5621010823659554`*^9}, {3.563336145834674*^9, 
   3.563336145844674*^9}, 3.5633970227886376`*^9, {3.563910903298745*^9, 
   3.563910903458746*^9}, {3.5640714571435466`*^9, 3.564071457344558*^9}, 
   3.596743130558649*^9, 3.613154211832006*^9, {3.6549693793568835`*^9, 
   3.6549693820710387`*^9}, {3.6647510216150856`*^9, 3.6647510216280866`*^9}, 
   3.6648123048329535`*^9, 3.6648254213015757`*^9, {3.6648271721887207`*^9, 
   3.6648271732357807`*^9}, {3.6652446536967597`*^9, 3.66524465391516*^9}, 
   3.6752688189619374`*^9, {3.675269094272684*^9, 3.675269098381919*^9}, {
   3.6752700918127403`*^9, 3.6752701118888884`*^9}, 3.677214095774603*^9, 
   3.6773007068277597`*^9, 3.6916254342488422`*^9, {3.691625989040574*^9, 
   3.691625990506658*^9}, {3.6916262238720055`*^9, 3.691626228170252*^9}, {
   3.691630459289262*^9, 3.691630459289262*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.497727769376384*^9, {3.6916257432115135`*^9, 
   3.6916257481327953`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"n", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "n"]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", " ", "f"}]], 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SuperscriptBox["x", "2"], 
           SuperscriptBox["a", "2"]]}], ")"}], 
        FractionBox[
         RowBox[{"n", "-", "1"}], "2"]]}], ",", "x", ",", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977280278688383`*^9, 3.497728029538041*^9}, {3.49772809175095*^9, 
   3.497728115119791*^9}, {3.499131609892951*^9, 3.499131627812976*^9}, {
   3.515381148112835*^9, 3.515381153619645*^9}, {3.515381210107344*^9, 
   3.515381210450545*^9}, {3.562111256653615*^9, 3.5621113114721117`*^9}, {
   3.563336145874674*^9, 3.563336145904674*^9}, {3.563336873905693*^9, 
   3.563336873905693*^9}, {3.596743161608692*^9, 3.596743173308709*^9}, {
   3.664751021656088*^9, 3.66475102168009*^9}, {3.664751449170541*^9, 
   3.664751449170541*^9}, {3.664825421337578*^9, 3.664825421337578*^9}, {
   3.6648256726769533`*^9, 3.6648256726769533`*^9}, {3.675270118505267*^9, 
   3.675270127017754*^9}, {3.6916254395401444`*^9, 3.691625440972226*^9}, {
   3.691625991499715*^9, 3.6916259930688047`*^9}, {3.691630393000167*^9, 
   3.691630393000167*^9}, {3.691801917056072*^9, 3.691801917056072*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"n", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.5967430887485905`*^9, 
   3.5967430962786007`*^9}, {3.675270132482066*^9, 3.6752701336181316`*^9}, {
   3.6916259938198476`*^9, 3.691625994419882*^9}, {3.69163046520927*^9, 
   3.69163046520927*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{"a", " ", "f"}]]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SuperscriptBox["x", "2"], 
           SuperscriptBox["a", "2"]]}], ")"}], 
        FractionBox[
         RowBox[{"n", "-", "1"}], "2"]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4977277558667603`*^9, 3.4977279564051123`*^9, {3.499131609902951*^9, 
   3.499131627822976*^9}, {3.515381218687359*^9, 3.51538121910856*^9}, {
   3.563336145914674*^9, 3.5633361459346743`*^9}, 3.563336855015667*^9, 
   3.5967431395686617`*^9, 3.596743265578838*^9, {3.664751021720092*^9, 
   3.6647510217340927`*^9}, 3.6647514587830906`*^9, 3.6648254213705797`*^9, 
   3.6648257095060596`*^9, {3.6752701378843756`*^9, 3.675270139108445*^9}, {
   3.6916254418082743`*^9, 3.6916254431603518`*^9}, 3.691625945735097*^9, {
   3.691625995648952*^9, 3.6916259964239964`*^9}, {3.6918019367971*^9, 
   3.6918019591391315`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691625743988558*^9, 3.691625907781926*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"cos", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "f"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"x", "^", "2"}], "/", 
             RowBox[{"a", "^", "2"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}]}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "e", ",", "f", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
      RowBox[{"LtQ", "[", 
       RowBox[{"0", ",", "m", ",", "n"}], "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.497727590085269*^9, 3.4977277276307106`*^9, {
   3.4991316099129505`*^9, 3.499131627832976*^9}, {3.515381222275366*^9, 
   3.5153812226965666`*^9}, 3.5490782937156935`*^9, 3.560912710430691*^9, 
   3.5609703501601954`*^9, 3.56097061928397*^9, {3.5633361459346743`*^9, 
   3.563336145954674*^9}, {3.5633935808513184`*^9, 3.5633935973313417`*^9}, 
   3.563646669293786*^9, 3.563670060429185*^9, 3.563819439283348*^9, 
   3.56391106394897*^9, 3.5639111121990376`*^9, {3.5967432854588656`*^9, 
   3.5967433018988886`*^9}, 3.6131900666262197`*^9, 3.6131904771638994`*^9, 
   3.6647510463965034`*^9, {3.6647510843096714`*^9, 3.664751084318672*^9}, 
   3.66475126226385*^9, 3.6647513055553265`*^9, 3.664825483062108*^9, 
   3.66482555391016*^9, 3.664825606963195*^9, {3.6652445556179867`*^9, 
   3.6652445981652613`*^9}, 3.665244629198716*^9, {3.675269164784717*^9, 
   3.6752691693859806`*^9}, 3.675269550087755*^9, {3.675270148909006*^9, 
   3.675270158437551*^9}, {3.691625444217412*^9, 3.691625446465541*^9}, {
   3.6916257627276297`*^9, 3.6916257631516542`*^9}, 3.691625886616716*^9, {
   3.6916259324413366`*^9, 3.6916259457540984`*^9}, {3.6916259978420773`*^9, 
   3.691626000279217*^9}, {3.69162808069921*^9, 3.6916280854794836`*^9}, {
   3.6918019998201895`*^9, 3.6918020408572483`*^9}, {3.7152887867309065`*^9, 
   3.715288794736721*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "f"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "m"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"x", "^", "2"}], "/", 
             RowBox[{"a", "^", "2"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}]}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "e", ",", "f", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IntegerQ", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "-", "1"}], ")"}], "/", "2"}], "]"}], " ", "&&", " ", 
      RowBox[{"GtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
      RowBox[{"LeQ", "[", 
       RowBox[{"m", ",", "n"}], "]"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.497727590085269*^9, 3.4977277276307106`*^9, 
   3.49799144010495*^9, {3.4991316099429507`*^9, 3.4991316278729763`*^9}, {
   3.5153814803450174`*^9, 3.515381497520648*^9}, 3.5490782965956974`*^9, 
   3.560912728390716*^9, 3.560970352050743*^9, 3.560970623699222*^9, {
   3.5620991441832423`*^9, 3.5620991451132436`*^9}, {3.563336146054674*^9, 
   3.563336146074674*^9}, 3.563337020895899*^9, {3.5633935808513184`*^9, 
   3.5633935973313417`*^9}, 3.563646680313802*^9, {3.56381948321341*^9, 
   3.5638194851034126`*^9}, 3.5639111155790424`*^9, {3.596743322758918*^9, 
   3.596743346398951*^9}, {3.6131900678062215`*^9, 3.6131900729562287`*^9}, 
   3.6131904801739035`*^9, 3.6647510464245048`*^9, {3.6647510843436737`*^9, 
   3.664751084351674*^9}, 3.664751262273851*^9, 3.6647513055653267`*^9, 
   3.66524455761479*^9, {3.6652445924868517`*^9, 3.66524463153872*^9}, {
   3.675269173236201*^9, 3.675269206920127*^9}, 3.6752695507037907`*^9, 
   3.675269592381174*^9, 3.6752697849261875`*^9, 3.6752698264055595`*^9, 
   3.6752698846378903`*^9, {3.6752701686851373`*^9, 3.675270174205453*^9}, {
   3.6752708051445403`*^9, 3.6752708696152277`*^9}, {3.6916254470575743`*^9, 
   3.6916254494817133`*^9}, {3.6916257637836905`*^9, 3.6916257641357107`*^9}, 
   3.691625886634717*^9, {3.6916259324693384`*^9, 3.691625945770099*^9}, {
   3.6916260008982525`*^9, 3.6916260024153395`*^9}, {3.6916280927308984`*^9, 
   3.6916280963691063`*^9}, {3.6918020612003746`*^9, 
   3.6918020768274546`*^9}, {3.7152888123193526`*^9, 3.715288832281788*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.664827176443964*^9, 
   3.664827177297013*^9}, {3.6652446551943626`*^9, 3.6652446553659625`*^9}, 
   3.675268819498968*^9, 3.675269070285312*^9, 3.6772140964926434`*^9, 
   3.6773007074367943`*^9, 3.6916254503037605`*^9, 3.691625765053763*^9, 
   3.691626003319391*^9, 3.691626194656335*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093961670887*^9, 3.5620939657108927`*^9}, 
   3.5621008854756804`*^9, {3.562101097145976*^9, 3.5621010974159765`*^9}, {
   3.563336146124674*^9, 3.563336146134674*^9}, 3.56339702474864*^9, 
   3.5967434047090325`*^9, 3.6131542135970087`*^9, {3.6647510217910957`*^9, 
   3.6647510218000965`*^9}, 3.664812325955161*^9, 3.6648254214035816`*^9, 
   3.675268819989996*^9, 3.675269070467323*^9, {3.6752701875432158`*^9, 
   3.6752701875432158`*^9}, 3.6772141080243034`*^9, 3.67730070805083*^9, 
   3.6916254509037943`*^9, 3.6916257656607976`*^9, {3.691626003847421*^9, 
   3.691626004681469*^9}, 3.6916261948243446`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.1", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9}],

Cell["Reference: G&R 2.510.4", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, {
   3.4979918047243905`*^9, 3.497991804973991*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.675270193022529*^9, 
   3.675270193023529*^9}, {3.6916260057445297`*^9, 3.6916260057445297`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"m", "-", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"b", " ", "f", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{
     SuperscriptBox["b", "2"], 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, {
   3.4991316099529505`*^9, 3.499131627882976*^9}, {3.515791020128791*^9, 
   3.515791023467197*^9}, {3.5633361461446743`*^9, 3.5633361461846743`*^9}, {
   3.563337203206154*^9, 3.5633372066061587`*^9}, {3.5967434117790422`*^9, 
   3.5967434897691517`*^9}, {3.664751021808097*^9, 3.664751021845099*^9}, 
   3.6647513591453915`*^9, {3.664825421418582*^9, 3.664825421432583*^9}, {
   3.6648257493963413`*^9, 3.6648257512584476`*^9}, 3.6752690706603336`*^9, {
   3.6752694334050817`*^9, 3.675269435621208*^9}, {3.6752696999763284`*^9, 
   3.675269700919382*^9}, {3.67527060476608*^9, 3.675270606157159*^9}, {
   3.675271281336777*^9, 3.6752713099264126`*^9}, 3.6773523064015284`*^9, {
   3.691625451964855*^9, 3.6916254543379908`*^9}, {3.6916257664288416`*^9, 
   3.691625768414955*^9}, {3.6916260066525817`*^9, 3.6916260093697367`*^9}, 
   3.691626194993354*^9, {3.691626258335977*^9, 3.6916262760799923`*^9}, {
   3.691628423231802*^9, 3.6916284248668957`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.69162576938101*^9, 3.6916259078539305`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IntegersQ", "[", 
       RowBox[{
        RowBox[{"2", "*", "m"}], ",", 
        RowBox[{"2", "*", "n"}]}], "]"}], " ", "||", " ", 
      RowBox[{"EqQ", "[", 
       RowBox[{
        RowBox[{"m", "+", "n"}], ",", "0"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, {3.499131609972951*^9, 3.499131627892976*^9}, {
   3.515791052467648*^9, 3.5157910664764724`*^9}, 3.5488198662059374`*^9, 
   3.560970356221982*^9, 3.5609706292285385`*^9, {3.5633361461946745`*^9, 
   3.5633361462346745`*^9}, {3.563337222526181*^9, 3.5633372247461843`*^9}, {
   3.5633935808613186`*^9, 3.5633935973413415`*^9}, 3.5967435587392483`*^9, 
   3.596743597729303*^9, 3.5967436893694315`*^9, {3.5967437730195484`*^9, 
   3.5967437738095493`*^9}, 3.6131089644797215`*^9, {3.6131557175686884`*^9, 
   3.6131557300987062`*^9}, {3.664751046562513*^9, 3.6647510465885143`*^9}, {
   3.6647510845166836`*^9, 3.664751084526684*^9}, 3.6647512623218536`*^9, 
   3.6647513056103296`*^9, {3.6648254466310244`*^9, 3.664825446640025*^9}, 
   3.664825483187115*^9, 3.6648255539521627`*^9, 3.6648256070051975`*^9, 
   3.664825757564809*^9, {3.6752692530547657`*^9, 3.6752692571710014`*^9}, {
   3.6752694364622564`*^9, 3.6752694378863378`*^9}, 3.675269551285824*^9, 
   3.675269593646247*^9, {3.6752697855752244`*^9, 3.6752697868012943`*^9}, 
   3.675269827206606*^9, 3.675269885350931*^9, 3.6752702063112893`*^9, 
   3.675270610734421*^9, {3.6752713176168523`*^9, 3.6752713314746447`*^9}, 
   3.679712460828497*^9, {3.679763994773776*^9, 3.679764015287806*^9}, {
   3.6916254567641296`*^9, 3.6916254607403574`*^9}, {3.691625770556078*^9, 
   3.6916257736652555`*^9}, 3.6916258866497173`*^9, 3.6916259324953403`*^9, {
   3.691626010731815*^9, 3.691626015337078*^9}, 3.6916280027087493`*^9, {
   3.691628102143437*^9, 3.6916281056356363`*^9}, {3.6916283261562495`*^9, 
   3.691628342742198*^9}, {3.6916284285601068`*^9, 3.691628431097252*^9}, {
   3.7049859708846707`*^9, 3.7049859831853743`*^9}, {3.7049862830315247`*^9, 
   3.704986286156703*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IntegersQ", "[", 
       RowBox[{
        RowBox[{"2", "*", "m"}], ",", 
        RowBox[{"2", "*", "n"}]}], "]"}], " ", "||", " ", 
      RowBox[{"EqQ", "[", 
       RowBox[{
        RowBox[{"m", "+", "n"}], ",", "0"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, {3.499131609972951*^9, 3.499131627892976*^9}, {
   3.515791052467648*^9, 3.5157910664764724`*^9}, 3.5488198662059374`*^9, 
   3.560970356221982*^9, 3.5609706292285385`*^9, {3.5633361461946745`*^9, 
   3.5633361462346745`*^9}, {3.563337222526181*^9, 3.5633372247461843`*^9}, {
   3.5633935808613186`*^9, 3.5633935973413415`*^9}, 3.5967435587392483`*^9, 
   3.596743597729303*^9, 3.5967436893694315`*^9, {3.5967437730195484`*^9, 
   3.5967437738095493`*^9}, 3.6131089644797215`*^9, {3.6131557175686884`*^9, 
   3.6131557300987062`*^9}, {3.664751046562513*^9, 3.6647510465885143`*^9}, {
   3.6647510845166836`*^9, 3.664751084526684*^9}, 3.6647512623218536`*^9, 
   3.6647513056103296`*^9, {3.6648254466310244`*^9, 3.664825446640025*^9}, 
   3.664825483187115*^9, 3.6648255539521627`*^9, 3.6648256070051975`*^9, 
   3.664825757564809*^9, {3.6752692530547657`*^9, 3.6752692571710014`*^9}, {
   3.6752694364622564`*^9, 3.6752694378863378`*^9}, 3.675269551285824*^9, 
   3.675269593646247*^9, {3.6752697855752244`*^9, 3.6752697868012943`*^9}, 
   3.675269827206606*^9, 3.675269885350931*^9, 3.6752702063112893`*^9, 
   3.675270610734421*^9, {3.6752713176168523`*^9, 3.6752713314746447`*^9}, {
   3.6752713705258784`*^9, 3.6752714071689744`*^9}, 3.6797124630285006`*^9, 
   3.679764021747815*^9, {3.691625461331391*^9, 3.6916254641875544`*^9}, {
   3.691625774515304*^9, 3.6916257775774794`*^9}, 3.691625886658718*^9, 
   3.69162593250434*^9, {3.69162601624413*^9, 3.6916260196333237`*^9}, 
   3.69162800271775*^9, {3.691628110221899*^9, 3.6916281145561466`*^9}, {
   3.6916284406757994`*^9, 3.6916284734376736`*^9}, 3.7049859972191772`*^9, 
   3.7049862916520176`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.5620939740209045`*^9, 3.562093979420912*^9}, {
   3.5620994225336323`*^9, 3.562099426933638*^9}, 3.5621009016157026`*^9, {
   3.5621010986959786`*^9, 3.5621010988859787`*^9}, {3.5633361462446747`*^9, 
   3.5633361462546744`*^9}, 3.563397025378641*^9, 3.5967445696506634`*^9, 
   3.6131542140370092`*^9, {3.6647510218550997`*^9, 3.6647510218631*^9}, 
   3.66481232768826*^9, 3.664825421461585*^9, 3.675268820491025*^9, 
   3.675269070677335*^9, {3.6752702362390013`*^9, 3.6752702362390013`*^9}, 
   3.677214109293376*^9, 3.6773007086648645`*^9, {3.6797640861999145`*^9, 
   3.67976409012992*^9}, 3.6916254646315794`*^9, 3.6916257782615185`*^9, {
   3.691626020519375*^9, 3.6916260213774233`*^9}, 3.6916261951613636`*^9, {
   3.7049895463821774`*^9, 3.7049895504364095`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.2, CRC 323b, A&S 4.3.127b", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9}],

Cell["Reference: G&R 2.510.5, CRC 323a, A&S 4.3.127a", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9, 3.4979919575578585`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.5620994321736455`*^9, 3.5620994321736455`*^9}, {
   3.6752702450715065`*^9, 3.6752702450715065`*^9}, {3.679764100562935*^9, 
   3.679764100562935*^9}, {3.691626022328478*^9, 3.691626022328478*^9}, {
   3.7049895571547937`*^9, 3.7049895571547937`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"m", "-", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"b", " ", "f", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{"m", "+", "n"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.498011270904375*^9, {3.499131610012951*^9, 3.499131627932976*^9}, {
   3.515389528558507*^9, 3.5153895318969135`*^9}, {3.563336146264674*^9, 
   3.563336146304674*^9}, {3.5633374127864475`*^9, 3.563337415646452*^9}, {
   3.59674448863055*^9, 3.5967445378506193`*^9}, {3.6647510218711004`*^9, 
   3.6647510219081025`*^9}, 3.6647513615265274`*^9, {3.664825421477586*^9, 
   3.6648254214905863`*^9}, {3.6648258019783487`*^9, 3.6648258038434553`*^9}, 
   3.6752690708693457`*^9, 3.6752694386373806`*^9, {3.675269701671426*^9, 
   3.675269702263459*^9}, {3.6752702631415396`*^9, 3.6752702667407455`*^9}, 
   3.6752706140296097`*^9, {3.6752714505674562`*^9, 3.6752714713036423`*^9}, 
   3.6773524141977177`*^9, {3.691625470596921*^9, 3.6916254737130995`*^9}, {
   3.6916257788125496`*^9, 3.6916257808236647`*^9}, {3.6916260228925104`*^9, 
   3.6916260250336328`*^9}, 3.6916261953303733`*^9, {3.6916262889567285`*^9, 
   3.6916263025165043`*^9}, 3.6916285101757746`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6916257817727194`*^9, 3.6916259079369354`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, {3.4980113358844657`*^9, 
   3.4980113391144705`*^9}, {3.499131610022951*^9, 3.499131627942976*^9}, {
   3.5153904804925776`*^9, 3.5153904855937862`*^9}, 3.560970361489283*^9, 
   3.5609706398250017`*^9, {3.5633361463146744`*^9, 3.5633361463546743`*^9}, {
   3.5633374187264557`*^9, 3.563337424206464*^9}, {3.563393580871319*^9, 
   3.5633935973513412`*^9}, {3.5967445861706867`*^9, 3.596744592610696*^9}, 
   3.5967446502907763`*^9, 3.6131089766897388`*^9, {3.6131557614737515`*^9, 
   3.613155763598755*^9}, {3.664751046882531*^9, 3.664751046908532*^9}, {
   3.664751084728696*^9, 3.664751084738696*^9}, 3.6647512623788567`*^9, 
   3.6647513056673326`*^9, {3.66482544673203*^9, 3.6648254467410307`*^9}, 
   3.6648254833451242`*^9, 3.664825554007166*^9, 3.6648256070832014`*^9, 
   3.6648258085767264`*^9, {3.6752692701607447`*^9, 3.675269274517994*^9}, 
   3.6752694393184195`*^9, 3.6752695525128937`*^9, 3.675269595942378*^9, {
   3.675269789566453*^9, 3.675269790782522*^9}, 3.6752698286066856`*^9, 
   3.675269887511055*^9, {3.675270280527534*^9, 3.6752702949103565`*^9}, {
   3.6752714801481485`*^9, 3.675271492618862*^9}, {3.679712436584462*^9, 
   3.679712445238475*^9}, {3.679764120233963*^9, 3.679764121023964*^9}, {
   3.6916254744351406`*^9, 3.691625478144353*^9}, {3.6916257822347455`*^9, 
   3.691625784952901*^9}, 3.691625886667719*^9, 3.691625932513341*^9, {
   3.6916260254426565`*^9, 3.691626027680784*^9}, 3.6916280027267504`*^9, {
   3.6916281217365575`*^9, 3.691628125309762*^9}, 3.691628522472478*^9, 
   3.7049860061696887`*^9, {3.704989560637993*^9, 3.7049895660043*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, {3.4980113358844657`*^9, 
   3.4980113391144705`*^9}, {3.499131610022951*^9, 3.499131627942976*^9}, {
   3.5153904804925776`*^9, 3.5153904855937862`*^9}, 3.560970361489283*^9, 
   3.5609706398250017`*^9, {3.5633361463146744`*^9, 3.5633361463546743`*^9}, {
   3.5633374187264557`*^9, 3.563337424206464*^9}, {3.563393580871319*^9, 
   3.5633935973513412`*^9}, {3.5967445861706867`*^9, 3.596744592610696*^9}, 
   3.5967446502907763`*^9, 3.6131089766897388`*^9, {3.6131557614737515`*^9, 
   3.613155763598755*^9}, {3.664751046882531*^9, 3.664751046908532*^9}, {
   3.664751084728696*^9, 3.664751084738696*^9}, 3.6647512623788567`*^9, 
   3.6647513056673326`*^9, {3.66482544673203*^9, 3.6648254467410307`*^9}, 
   3.6648254833451242`*^9, 3.664825554007166*^9, 3.6648256070832014`*^9, 
   3.6648258085767264`*^9, {3.6752692701607447`*^9, 3.675269274517994*^9}, 
   3.6752694393184195`*^9, 3.6752695525128937`*^9, 3.675269595942378*^9, {
   3.675269789566453*^9, 3.675269790782522*^9}, 3.6752698286066856`*^9, 
   3.675269887511055*^9, {3.675270280527534*^9, 3.6752702949103565`*^9}, {
   3.6752714801481485`*^9, 3.6752715395035434`*^9}, 3.6797124575284925`*^9, {
   3.679764129832977*^9, 3.679764130782978*^9}, {3.6916254787393866`*^9, 
   3.6916254823285923`*^9}, {3.691625785562936*^9, 3.6916257879200706`*^9}, 
   3.691625886676719*^9, 3.6916259325223417`*^9, {3.691626028218815*^9, 
   3.6916260307279587`*^9}, 3.691628002735751*^9, {3.691628129003973*^9, 
   3.6916281325431757`*^9}, 3.6916285238645577`*^9, 3.7049860114359903`*^9, 
   3.7049895731467085`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, {
   3.6142960499257836`*^9, 3.614296050312806*^9}, {3.6647510219261036`*^9, 
   3.6647510219381046`*^9}, 3.6648123069000716`*^9, 3.6648254215125875`*^9, {
   3.6648271810682287`*^9, 3.664827181530255*^9}, {3.665244656691965*^9, 
   3.6652446568635654`*^9}, 3.675268820981053*^9, 3.6752690708873467`*^9, {
   3.675269440991515*^9, 3.675269440991515*^9}, 3.6772140970766773`*^9, 
   3.6773007092698994`*^9, {3.6797624618690667`*^9, 3.6797624618690667`*^9}, 
   3.6916254832716455`*^9, 3.691625788589109*^9, 3.6916260315590057`*^9, 
   3.691626195499383*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.510.3, CRC 334a, A&S 4.3.128b", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9, 3.4977284496435795`*^9}],

Cell["Reference: G&R 2.510.6, CRC 334b, A&S 4.3.128a", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, 3.4976397495153246`*^9, 3.497728192009127*^9, 
   3.4977282459540215`*^9, 3.4977284496435795`*^9, 3.4979921349613705`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.675269442062577*^9, 3.675269442062577*^9}, {3.6797624646610713`*^9, 
   3.6797624646610713`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"a", " ", "b", " ", "f", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "n", "+", "2"}], 
    RowBox[{
     SuperscriptBox["a", "2"], 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.664751021967106*^9, 3.664751022005108*^9}, 3.6647513634866395`*^9, {
   3.6648254215285883`*^9, 3.664825421542589*^9}, {3.664825847769968*^9, 
   3.6648258490480413`*^9}, 3.6752690710803576`*^9, {3.6752694428046193`*^9, 
   3.6752694433726516`*^9}, {3.675269702903496*^9, 3.675269703687541*^9}, 
   3.675269946125407*^9, 3.6752703294373317`*^9, 3.675270626469321*^9, {
   3.675271574299534*^9, 3.675271586553234*^9}, 3.677352441903366*^9, {
   3.6916254877729034`*^9, 3.6916254897850184`*^9}, {3.691625789181143*^9, 
   3.6916257904792175`*^9}, {3.691626032581064*^9, 3.6916260348091917`*^9}, 
   3.6916261956673927`*^9, {3.691626312373068*^9, 3.691626324614768*^9}, 
   3.691628511279838*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6916257911652565`*^9, 3.69162590802194*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "+", "n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, 3.6131557886287904`*^9, {
   3.664751047200549*^9, 3.6647510472275505`*^9}, {3.6647510849407077`*^9, 
   3.6647510849507084`*^9}, 3.66475126243886*^9, 3.664751305727336*^9, {
   3.664825446837036*^9, 3.664825446846037*^9}, 3.664825483499133*^9, 
   3.664825554058169*^9, 3.6648256071622057`*^9, 3.6648258539653225`*^9, {
   3.6752692852816095`*^9, 3.675269289630858*^9}, {3.6752694437906756`*^9, 
   3.675269444710728*^9}, 3.6752695537659655`*^9, 3.6752695976144733`*^9, {
   3.6752697946147413`*^9, 3.6752697966308565`*^9}, 3.6752698298547573`*^9, 
   3.675269889119147*^9, 3.675269968750702*^9, {3.6752703374467897`*^9, 
   3.675270342255065*^9}, {3.675271601790106*^9, 3.6752716178740263`*^9}, 
   3.67971247682852*^9, {3.679762467851076*^9, 3.679762468691077*^9}, {
   3.6916254911310954`*^9, 3.691625493992259*^9}, {3.691625791859296*^9, 
   3.69162579350439*^9}, 3.6916258866857195`*^9, 3.691625932531342*^9, {
   3.6916260367633038`*^9, 3.691626041512575*^9}, 3.6916280027437515`*^9, {
   3.691628137361451*^9, 3.691628148237073*^9}, 3.691628525041625*^9, 
   3.7049860369374485`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "+", "n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, 3.6131557886287904`*^9, {
   3.664751047200549*^9, 3.6647510472275505`*^9}, {3.6647510849407077`*^9, 
   3.6647510849507084`*^9}, 3.66475126243886*^9, 3.664751305727336*^9, {
   3.664825446837036*^9, 3.664825446846037*^9}, 3.664825483499133*^9, 
   3.664825554058169*^9, 3.6648256071622057`*^9, 3.6648258539653225`*^9, {
   3.6752692852816095`*^9, 3.675269289630858*^9}, {3.6752694437906756`*^9, 
   3.675269444710728*^9}, 3.6752695537659655`*^9, 3.6752695976144733`*^9, {
   3.6752697946147413`*^9, 3.6752697966308565`*^9}, 3.6752698298547573`*^9, 
   3.675269889119147*^9, 3.675269968750702*^9, {3.6752703374467897`*^9, 
   3.675270342255065*^9}, {3.675271601790106*^9, 3.6752716547601357`*^9}, 
   3.6797124790085225`*^9, {3.6797624708810797`*^9, 3.6797624717110815`*^9}, {
   3.6916254946752977`*^9, 3.6916254972644463`*^9}, {3.6916257941474266`*^9, 
   3.691625796192544*^9}, 3.6916258866947203`*^9, 3.6916259325403423`*^9, {
   3.6916260423716245`*^9, 3.6916260449047694`*^9}, 3.691628002751752*^9, {
   3.6916281524003115`*^9, 3.6916281569355707`*^9}, 3.6916285257286644`*^9, {
   3.7049860393895893`*^9, 3.704986042660776*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]], " ", 
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, 
   3.613245495475693*^9, {3.6132455462857647`*^9, 3.6132455692257967`*^9}, 
   3.6132499536915426`*^9, {3.6132513610635133`*^9, 3.6132513614135137`*^9}, {
   3.6132529926757975`*^9, 3.613252992815798*^9}, {3.614296057743231*^9, 
   3.614296058358266*^9}, {3.6585993379457245`*^9, 3.6585993546057477`*^9}, {
   3.658599632824541*^9, 3.658599634924544*^9}, {3.6647510220251093`*^9, 
   3.66475102203611*^9}, 3.664812307761121*^9, 3.6648254215645905`*^9, {
   3.664827185170463*^9, 3.6648271856484904`*^9}, {3.6652446580959673`*^9, 
   3.6652446582675676`*^9}, 3.675268821470081*^9, {3.6752691109286366`*^9, 
   3.675269114076817*^9}, 3.675269709286861*^9, 3.6772140976657104`*^9, 
   3.6773007098709335`*^9, 3.6916254982004995`*^9, 3.6916257970295916`*^9, 
   3.691626338437558*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]], 
      SqrtBox[
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]]}], 
     SqrtBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]]]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.5633886905132675`*^9, 3.5633886964568777`*^9}, {
   3.5633887376253505`*^9, 3.563388749340971*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887569537845`*^9}, {3.5633894834955807`*^9, 
   3.5633894834955807`*^9}, {3.568663067078792*^9, 3.568663077648807*^9}, {
   3.568663273389081*^9, 3.568663273389081*^9}, {3.569040524416956*^9, 
   3.569040529596963*^9}, {3.56904056310701*^9, 3.569040589067046*^9}, {
   3.5690406206870904`*^9, 3.5690406206870904`*^9}, {3.5690406878971844`*^9, 
   3.5690406878971844`*^9}, {3.5967588660628266`*^9, 
   3.5967588660628266`*^9}, {3.6585989005451117`*^9, 3.65859891351513*^9}, {
   3.658599147875458*^9, 3.6585991556854687`*^9}, {3.6647510220661116`*^9, 
   3.6647510220751123`*^9}, {3.664751368312916*^9, 3.664751368312916*^9}, {
   3.664812247359666*^9, 3.664812247359666*^9}, {3.6648254215985923`*^9, 
   3.6648254215985923`*^9}, {3.6752697105089307`*^9, 
   3.6752697105089307`*^9}, {3.6916254991245527`*^9, 
   3.6916254991245527`*^9}, {3.6916257976226254`*^9, 3.6916257976236258`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6132455766458073`*^9, 3.6132455766458073`*^9}, 3.6132499565315466`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SqrtBox[
    RowBox[{"a", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]], " ", 
   SqrtBox[
    RowBox[{"b", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]], 
       SqrtBox[
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]]}], 
      SqrtBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"2", " ", "e"}], "+", 
         RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SqrtBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.6132455362557507`*^9, 3.613245555815778*^9}, {3.613245606745849*^9, 
   3.613245609025852*^9}, {3.6132517962841225`*^9, 3.613251818944154*^9}, {
   3.6585991777555*^9, 3.658599194865524*^9}, {3.6647510220841126`*^9, 
   3.664751022106114*^9}, {3.664751371205081*^9, 3.664751372444152*^9}, {
   3.6648122511598835`*^9, 3.664812253763032*^9}, {3.664825421627594*^9, 
   3.6648254216355944`*^9}, {3.675269711296976*^9, 3.675269712137024*^9}, {
   3.6916254999075975`*^9, 3.6916255004916306`*^9}, {3.6916257982496614`*^9, 
   3.6916257987926927`*^9}, 3.6916263328562393`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691625800179772*^9, 3.691625908106945*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_.", "*", 
       RowBox[{"sin", "[", 
        RowBox[{"e_.", "+", 
         RowBox[{"f_.", "*", "x_"}]}], "]"}]}], "]"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"b_.", "*", 
       RowBox[{"cos", "[", 
        RowBox[{"e_.", "+", 
         RowBox[{"f_.", "*", "x_"}]}], "]"}]}], "]"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"a", "*", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}], "*", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", "*", "e"}], "+", 
        RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"2", "*", "e"}], "+", 
         RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "]"}], ",", "x"}], 
     "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, 3.6131557886287904`*^9, {
   3.6132456735034485`*^9, 3.6132457571235657`*^9}, 3.61324995905155*^9, {
   3.6132519519743404`*^9, 3.6132519631243563`*^9}, {3.613251996044402*^9, 
   3.6132519992344065`*^9}, 3.658599233485578*^9, {3.664751047517567*^9, 
   3.664751047526568*^9}, {3.66475108515372*^9, 3.6647510851627207`*^9}, 
   3.664751262497864*^9, {3.6647513057843394`*^9, 3.6647513057893395`*^9}, {
   3.664812264244632*^9, 3.6648122666717706`*^9}, 3.6648254469420424`*^9, 
   3.664825483655142*^9, 3.664825554109172*^9, {3.6752692980573397`*^9, 
   3.6752693017485514`*^9}, 3.675269798982991*^9, 3.675269831444848*^9, 
   3.675269890205209*^9, {3.6916255017457027`*^9, 3.69162550450286*^9}, {
   3.6916258006738005`*^9, 3.691625801382841*^9}, 3.691625886703721*^9, 
   3.6916280027597523`*^9, {3.691628163590951*^9, 3.6916281672061577`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["6:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]], " ", 
       SqrtBox[
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, 
   3.613245495475693*^9, {3.6132455462857647`*^9, 3.6132455692257967`*^9}, 
   3.6132499536915426`*^9, {3.6132529906257944`*^9, 3.6132529908857946`*^9}, {
   3.61429605387801*^9, 3.6142960543450365`*^9}, {3.658599331485715*^9, 
   3.65859935601575*^9}, {3.658599636284546*^9, 3.6585996382845483`*^9}, {
   3.664751022124115*^9, 3.664751022139116*^9}, 3.664812309056195*^9, 
   3.6648254216455956`*^9, {3.6648271894277067`*^9, 3.6648271898687315`*^9}, {
   3.665244660061571*^9, 3.6652446602331715`*^9}, 3.6752688219101057`*^9, {
   3.675269117714025*^9, 3.675269121263228*^9}, 3.6752697131430817`*^9, 
   3.677214098231743*^9, 3.677300710458967*^9, 3.6916255051448965`*^9, 
   3.6916258020228777`*^9, 3.6916263525293646`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]], 
     RowBox[{
      SqrtBox[
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]], 
      SqrtBox[
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]]}]]}], "\[Equal]", "0"}]],
  CellChangeTimes->{{3.5633886905132675`*^9, 3.5633886964568777`*^9}, {
   3.5633887376253505`*^9, 3.563388749340971*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887569537845`*^9}, {3.5633894834955807`*^9, 
   3.5633894834955807`*^9}, {3.568663067078792*^9, 3.568663077648807*^9}, {
   3.568663273389081*^9, 3.568663273389081*^9}, {3.569040524416956*^9, 
   3.569040529596963*^9}, {3.56904056310701*^9, 3.569040589067046*^9}, {
   3.5690406206870904`*^9, 3.5690406206870904`*^9}, {3.5690406878971844`*^9, 
   3.5690406878971844`*^9}, {3.5967588660628266`*^9, 
   3.5967588660628266`*^9}, {3.6585989005451117`*^9, 3.65859891351513*^9}, {
   3.6647510221721177`*^9, 3.664751022180118*^9}, {3.664751382332718*^9, 
   3.664751382332718*^9}, {3.6648121423796616`*^9, 3.6648121423796616`*^9}, {
   3.664825421676597*^9, 3.664825421676597*^9}, {3.67526971381312*^9, 
   3.67526971381312*^9}, {3.6916255057889338`*^9, 3.6916255057889338`*^9}, {
   3.691625802350896*^9, 3.691625802350896*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6132455766458073`*^9, 3.6132455766458073`*^9}, 3.6132499565315466`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox[
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]], " ", 
     SqrtBox[
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SqrtBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"2", " ", "e"}], "+", 
         RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]], 
      RowBox[{
       SqrtBox[
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]], 
       SqrtBox[
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]]}]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"2", " ", "e"}], "+", 
         RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.6132455362557507`*^9, 3.613245555815778*^9}, {3.613245606745849*^9, 
   3.613245609025852*^9}, {3.658598750624902*^9, 3.658598832705017*^9}, {
   3.65859886364506*^9, 3.6585988691450677`*^9}, 3.658598936435162*^9, {
   3.6647510221891184`*^9, 3.6647510222101197`*^9}, {3.664751385222883*^9, 
   3.6647513875530167`*^9}, {3.66481215582143*^9, 3.6648121580825596`*^9}, {
   3.664825421705599*^9, 3.664825421713599*^9}, {3.675269714378152*^9, 
   3.6752697149381847`*^9}, {3.691625506404969*^9, 3.691625507060006*^9}, {
   3.691625802697916*^9, 3.6916258029859324`*^9}, 3.6916263486841445`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6916258033799553`*^9, 3.6916259081939497`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], "]"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"b_.", "*", 
         RowBox[{"cos", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], "]"}]}], ")"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", "*", "e"}], "+", 
        RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"b", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], "]"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "]"}]}], ",", "x"}], 
     "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, 3.6131557886287904`*^9, {
   3.6132456735034485`*^9, 3.6132457571235657`*^9}, 3.61324995905155*^9, 
   3.6585990039652567`*^9, {3.6647510475525694`*^9, 3.66475104756157*^9}, {
   3.664751085189722*^9, 3.664751085198723*^9}, 3.664751262506864*^9, {
   3.66475130579834*^9, 3.6647513058033404`*^9}, {3.664812168908179*^9, 
   3.6648121722403693`*^9}, 3.6648254469690437`*^9, 3.6648254836811433`*^9, 
   3.6648255541171722`*^9, {3.6752693081849194`*^9, 3.675269312360158*^9}, 
   3.675269799384014*^9, 3.6752698323008966`*^9, 3.675269890693237*^9, {
   3.6916255076660414`*^9, 3.6916255097911625`*^9}, {3.6916258036329694`*^9, 
   3.69162580451902*^9}, 3.6916258867117214`*^9, 3.6916280027677526`*^9, {
   3.6916281742415605`*^9, 3.6916281776857576`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "+", "n"}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860571437416`*^9, 3.56208606218503*^9}, {3.5620902162356434`*^9, 
   3.562090216395644*^9}, {3.562432734817567*^9, 3.5624327366675696`*^9}, 
   3.5624328290276985`*^9, 3.562432926777836*^9, {3.5624330446880007`*^9, 
   3.5624330452180014`*^9}, 3.562433105578086*^9, {3.5624380402503133`*^9, 
   3.5624380404453244`*^9}, {3.5624386052196274`*^9, 3.5624386053716364`*^9}, 
   3.5633262707169952`*^9, 3.563464319686865*^9, 3.56987332096063*^9, {
   3.569907020457186*^9, 3.5699070206971865`*^9}, {3.5699146093062763`*^9, 
   3.5699146101962776`*^9}, {3.5703058532783427`*^9, 3.5703058857883883`*^9}, 
   3.570306839139723*^9, 3.6131542148870106`*^9, {3.6132529947358003`*^9, 
   3.6132529949658003`*^9}, {3.6142960618294644`*^9, 
   3.6142960622484884`*^9}, {3.658599363025759*^9, 3.65859937767578*^9}, {
   3.658599695914629*^9, 3.6585996961146297`*^9}, {3.658599965035006*^9, 
   3.658599975865021*^9}, {3.6647510222291207`*^9, 3.664751022240122*^9}, 
   3.66481231351645*^9, 3.6648254217235994`*^9, {3.6648271948810186`*^9, 
   3.6648271954060483`*^9}, {3.6652446623547745`*^9, 3.665244662541975*^9}, 
   3.6752688223991337`*^9, 3.6752697164762726`*^9, {3.675271727440293*^9, 
   3.6752717426261616`*^9}, 3.677214099737829*^9, 3.6773007110740023`*^9, 
   3.691625510680214*^9, 3.6916258048610396`*^9, {3.691626045847823*^9, 
   3.6916260465848656`*^9}, 3.691626195835402*^9, {3.7049861112046967`*^9, 
   3.7049861112046967`*^9}, {3.705003194232789*^9, 3.705003194232789*^9}, {
   3.7050036548611355`*^9, 3.70500365512615*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}, {3.6916255122153015`*^9, 3.6916255177116156`*^9}, {
   3.691625805300065*^9, 3.6916258096333127`*^9}, {3.705002903815178*^9, 
   3.7050029097735186`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n"}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"]]}], "\[Equal]", 
   "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.560723051424032*^9, 3.5607230524840336`*^9}, {3.560723111844116*^9, 
   3.560723111844116*^9}, {3.5624328332377048`*^9, 3.5624328386877127`*^9}, {
   3.5624329280478373`*^9, 3.562432931177842*^9}, {3.5624330509780097`*^9, 
   3.5624330553280153`*^9}, {3.562433105588086*^9, 3.5624331055980864`*^9}, {
   3.563326270736995*^9, 3.563326270756995*^9}, {3.563328891190664*^9, 
   3.563328891190664*^9}, {3.5634643197348676`*^9, 3.5634643197518687`*^9}, {
   3.5634654183647056`*^9, 3.5634654223819356`*^9}, {3.5703058911283956`*^9, 
   3.5703058911283956`*^9}, {3.570305924638443*^9, 3.570305924638443*^9}, {
   3.5703067507495995`*^9, 3.5703067507495995`*^9}, {3.570306781959643*^9, 
   3.5703067979796653`*^9}, {3.6647510222741237`*^9, 3.664751022316126*^9}, {
   3.664751517019421*^9, 3.664751517019421*^9}, {3.6648254217566013`*^9, 
   3.6648254217756023`*^9}, {3.6648259031611366`*^9, 3.664825907259371*^9}, {
   3.675269717087307*^9, 3.6752697182303724`*^9}, {3.6752706407341366`*^9, 
   3.6752706430232677`*^9}, {3.691625605855657*^9, 3.6916256094808645`*^9}, {
   3.6916258163606977`*^9, 3.691625818288808*^9}, {3.6916259457891006`*^9, 
   3.6916259457891006`*^9}, {3.7050029357300034`*^9, 3.705002945774578*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.498070579139242*^9, 3.49807059487967*^9}, {3.4980707881328096`*^9, 
   3.4980707891624117`*^9}, {3.5607201376249523`*^9, 3.560720139574955*^9}, {
   3.56072096437611*^9, 3.5607209837461367`*^9}, {3.5703059293784494`*^9, 
   3.570305931298452*^9}, {3.6752717527837424`*^9, 3.6752717527837424`*^9}, {
   3.6916260475859227`*^9, 3.6916260475859227`*^9}, {3.704986114099862*^9, 
   3.704986114099862*^9}, {3.7050032009951754`*^9, 3.705003206818509*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, {
   3.5607230530240345`*^9, 3.5607230535240345`*^9}, 3.5607231319441447`*^9, {
   3.5624328397577143`*^9, 3.56243284413772*^9}, {3.5624329323078437`*^9, 
   3.562432940697855*^9}, {3.562433060618023*^9, 3.5624330635680275`*^9}, {
   3.562433105608086*^9, 3.562433105608086*^9}, {3.5633262707669954`*^9, 
   3.563326270776995*^9}, 3.5633289617307625`*^9, {3.56346431977687*^9, 
   3.563464319787871*^9}, {3.5634655021835003`*^9, 3.563465505590695*^9}, {
   3.5703059335284553`*^9, 3.570305935668458*^9}, {3.5703068511997395`*^9, 
   3.5703068832197847`*^9}, {3.6647510225381384`*^9, 3.66475102256514*^9}, 
   3.6647515226327424`*^9, {3.6648254218066044`*^9, 3.6648254218146048`*^9}, {
   3.664825912860691*^9, 3.6648259212281694`*^9}, {3.6752697195094457`*^9, 
   3.675269720053477*^9}, {3.675270648247566*^9, 3.6752706501916776`*^9}, {
   3.6916256116499887`*^9, 3.6916256140421257`*^9}, {3.6916258241281414`*^9, 
   3.6916258264002714`*^9}, 3.6916259457981005`*^9, {3.705002760869002*^9, 
   3.7050028529702697`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b_.", "*", 
         RowBox[{"cos", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], ",", "x"}],
       "]"}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"EqQ", "[", 
      RowBox[{
       RowBox[{"m", "+", "n"}], ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607230540640354`*^9, 
   3.560723054514036*^9}, 3.56072313580415*^9, 3.562091159856965*^9, {
   3.562432845847722*^9, 3.5624328533477325`*^9}, {3.5624329452778616`*^9, 
   3.5624329483178663`*^9}, {3.562433067098032*^9, 3.562433074098042*^9}, {
   3.562433105618086*^9, 3.562433128268118*^9}, {3.5624380039322357`*^9, 
   3.5624380077644553`*^9}, {3.5624384863938313`*^9, 
   3.5624384891389885`*^9}, {3.563326270776995*^9, 3.563326270786995*^9}, 
   3.5633289721807775`*^9, 3.5634644661542425`*^9, {3.5634645310399537`*^9, 
   3.563464554178277*^9}, 3.5634645851010456`*^9, 3.5634653480566845`*^9, {
   3.563465513690158*^9, 3.5634655399336596`*^9}, 3.564109629540643*^9, {
   3.5699069881571407`*^9, 3.569906991757146*^9}, {3.5699088584897594`*^9, 
   3.5699088624197645`*^9}, {3.5703059399584637`*^9, 
   3.5703059747485127`*^9}, {3.570306934869857*^9, 3.5703070198799763`*^9}, {
   3.5703071435701494`*^9, 3.5703071439301496`*^9}, 3.5703071943102202`*^9, {
   3.5703072918703566`*^9, 3.5703072929503584`*^9}, {3.5703073336504154`*^9, 
   3.5703073339404154`*^9}, {3.570307513340667*^9, 3.570307513770667*^9}, 
   3.5703081206155195`*^9, {3.5703101110623083`*^9, 3.5703101115823092`*^9}, {
   3.5703143603472967`*^9, 3.570314360937298*^9}, {3.6647510475885715`*^9, 
   3.664751047598572*^9}, {3.664751085223724*^9, 3.6647510852337246`*^9}, 
   3.664751262512864*^9, 3.664751305813341*^9, 3.664825446996045*^9, 
   3.664825483705145*^9, 3.6648255541251726`*^9, 3.6648256072402105`*^9, 
   3.6648259314187527`*^9, {3.675269334283412*^9, 3.67526933879967*^9}, 
   3.6752695548300266`*^9, 3.675269800281066*^9, 3.6752698331509457`*^9, 
   3.675269891502283*^9, 3.67527043431933*^9, {3.6752706567500525`*^9, 
   3.6752706583181424`*^9}, 3.6758804639911833`*^9, {3.6916256144111466`*^9, 
   3.691625618216364*^9}, {3.6916258312035465`*^9, 3.6916258337766933`*^9}, 
   3.6916258867207217`*^9, 3.691625945806101*^9, {3.69162604840897*^9, 
   3.691626049008004*^9}, 3.691628002775753*^9, {3.691628184932172*^9, 
   3.6916281886023817`*^9}, {3.704986058534684*^9, 3.704986090215496*^9}, 
   3.7050030487984705`*^9, 3.705003079284214*^9, {3.7050031536634684`*^9, 
   3.7050031754147124`*^9}, {3.7050036596054068`*^9, 3.705003663650638*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["7:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"m", "+", "n"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"0", "<", "m", "<", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860571437416`*^9, 3.56208606218503*^9}, {3.5620902162356434`*^9, 
   3.562090216395644*^9}, {3.562432734817567*^9, 3.5624327366675696`*^9}, 
   3.5624328290276985`*^9, 3.562432926777836*^9, {3.5624330446880007`*^9, 
   3.5624330452180014`*^9}, 3.562433105578086*^9, {3.5624380402503133`*^9, 
   3.5624380404453244`*^9}, {3.5624386052196274`*^9, 3.5624386053716364`*^9}, 
   3.5633262707169952`*^9, 3.563464319686865*^9, 3.56987332096063*^9, {
   3.569907020457186*^9, 3.5699070206971865`*^9}, {3.5699146093062763`*^9, 
   3.5699146101962776`*^9}, {3.5703058532783427`*^9, 3.5703058857883883`*^9}, 
   3.570306839139723*^9, 3.6131542148870106`*^9, {3.6132529947358003`*^9, 
   3.6132529949658003`*^9}, {3.6142960618294644`*^9, 
   3.6142960622484884`*^9}, {3.658599363025759*^9, 3.65859937767578*^9}, {
   3.658599695914629*^9, 3.6585996961146297`*^9}, {3.658599965035006*^9, 
   3.658599975865021*^9}, {3.6647510222291207`*^9, 3.664751022240122*^9}, 
   3.66481231351645*^9, 3.6648254217235994`*^9, {3.6648271948810186`*^9, 
   3.6648271954060483`*^9}, {3.6652446623547745`*^9, 3.665244662541975*^9}, 
   3.6752688223991337`*^9, 3.6752697164762726`*^9, {3.675271727440293*^9, 
   3.6752717426261616`*^9}, 3.677214099737829*^9, 3.6773007110740023`*^9, 
   3.691625510680214*^9, 3.6916258048610396`*^9, {3.691626045847823*^9, 
   3.6916260465848656`*^9}, 3.691626195835402*^9, {3.7049861112046967`*^9, 
   3.7049861112046967`*^9}, {3.7050032407394485`*^9, 3.705003240963462*^9}, {
   3.7050059164594913`*^9, 3.7050059168465137`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.4980704231233683`*^9, 
   3.4980705306387577`*^9, 3.498070631992135*^9, {3.5607200111947756`*^9, 
   3.560720015914782*^9}, {3.6916255122153015`*^9, 3.6916255177116156`*^9}, {
   3.691625805300065*^9, 3.6916258096333127`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", "1"}], "<", "m", "<", "1"}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"k", "\[Rule]", 
   RowBox[{"Denominator", "[", "m", "]"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"]], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"k", " ", "a", " ", "b"}], "f"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       SuperscriptBox["x", 
        RowBox[{
         RowBox[{"k", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}]], 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        RowBox[{
         SuperscriptBox["b", "2"], 
         SuperscriptBox["x", 
          RowBox[{"2", " ", "k"}]]}]}]], ",", "x", ",", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"1", "/", "k"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"1", "/", "k"}]]]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"1", "/", "k"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"1", "/", "k"}]]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980704431694036`*^9, 
   3.4980705505911922`*^9, {3.5607208232359123`*^9, 3.5607208898060055`*^9}, {
   3.560723051424032*^9, 3.5607230524840336`*^9}, {3.560723111844116*^9, 
   3.560723111844116*^9}, {3.5624328332377048`*^9, 3.5624328386877127`*^9}, {
   3.5624329280478373`*^9, 3.562432931177842*^9}, {3.5624330509780097`*^9, 
   3.5624330553280153`*^9}, {3.562433105588086*^9, 3.5624331055980864`*^9}, {
   3.563326270736995*^9, 3.563326270756995*^9}, {3.563328891190664*^9, 
   3.563328891190664*^9}, {3.5634643197348676`*^9, 3.5634643197518687`*^9}, {
   3.5634654183647056`*^9, 3.5634654223819356`*^9}, {3.5703058911283956`*^9, 
   3.5703058911283956`*^9}, {3.570305924638443*^9, 3.570305924638443*^9}, {
   3.5703067507495995`*^9, 3.5703067507495995`*^9}, {3.570306781959643*^9, 
   3.5703067979796653`*^9}, {3.6647510222741237`*^9, 3.664751022316126*^9}, {
   3.664751517019421*^9, 3.664751517019421*^9}, {3.6648254217566013`*^9, 
   3.6648254217756023`*^9}, {3.6648259031611366`*^9, 3.664825907259371*^9}, {
   3.675269717087307*^9, 3.6752697182303724`*^9}, {3.6752706407341366`*^9, 
   3.6752706430232677`*^9}, {3.691625605855657*^9, 3.6916256094808645`*^9}, {
   3.6916258163606977`*^9, 3.691625818288808*^9}, {3.6916259457891006`*^9, 
   3.6916259457891006`*^9}, {3.7050029645796537`*^9, 3.705002992176232*^9}}],

Cell[TextData[{
 "Note: This rule is analogous to the rule for integrands of the form ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
    3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
    3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, {
    3.5607230530240345`*^9, 3.5607230535240345`*^9}, 3.5607231319441447`*^9, {
    3.5624328397577143`*^9, 3.56243284413772*^9}, {3.5624329323078437`*^9, 
    3.562432940697855*^9}, {3.562433060618023*^9, 3.5624330635680275`*^9}, {
    3.562433105608086*^9, 3.562433105608086*^9}, {3.5633262707669954`*^9, 
    3.563326270776995*^9}, 3.5633289617307625`*^9, {3.56346431977687*^9, 
    3.563464319787871*^9}, {3.5634655021835003`*^9, 3.563465505590695*^9}, {
    3.5703059335284553`*^9, 3.570305935668458*^9}, {3.5703068511997395`*^9, 
    3.5703068832197847`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " when ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", "1"}], "<", "m", "<", "1"}]]],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.498070579139242*^9, 3.49807059487967*^9}, {3.4980707881328096`*^9, 
   3.4980707891624117`*^9}, {3.5607201376249523`*^9, 3.560720139574955*^9}, {
   3.56072096437611*^9, 3.5607209837461367`*^9}, {3.5703059293784494`*^9, 
   3.570305931298452*^9}, {3.570307032139993*^9, 3.5703070836500654`*^9}, 
   3.6647510223421273`*^9, {3.664825910643564*^9, 3.664825910643564*^9}, {
   3.691625610666932*^9, 3.691625610666932*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"m", "+", "n"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"0", "<", "m", "<", "1"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"k", "\[Rule]", 
   RowBox[{"Denominator", "[", "m", "]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.498070579139242*^9, 3.49807059487967*^9}, {3.4980707881328096`*^9, 
   3.4980707891624117`*^9}, {3.5607201376249523`*^9, 3.560720139574955*^9}, {
   3.56072096437611*^9, 3.5607209837461367`*^9}, {3.5703059293784494`*^9, 
   3.570305931298452*^9}, {3.6752717527837424`*^9, 3.6752717527837424`*^9}, {
   3.6916260475859227`*^9, 3.6916260475859227`*^9}, {3.704986114099862*^9, 
   3.704986114099862*^9}, {3.7050030035018797`*^9, 3.7050030035018797`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"k", " ", "a", " ", "b"}], "f"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox["x", 
         RowBox[{
          RowBox[{"k", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}]], 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         RowBox[{
          SuperscriptBox["b", "2"], 
          SuperscriptBox["x", 
           RowBox[{"2", " ", "k"}]]}]}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"1", "/", "k"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"1", "/", "k"}]]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4980703789284906`*^9, 
   3.4980703957921205`*^9}, {3.4980704970362988`*^9, 3.498070514508329*^9}, 
   3.498070660243785*^9, {3.5607209191560464`*^9, 3.5607209527860937`*^9}, {
   3.5607230530240345`*^9, 3.5607230535240345`*^9}, 3.5607231319441447`*^9, {
   3.5624328397577143`*^9, 3.56243284413772*^9}, {3.5624329323078437`*^9, 
   3.562432940697855*^9}, {3.562433060618023*^9, 3.5624330635680275`*^9}, {
   3.562433105608086*^9, 3.562433105608086*^9}, {3.5633262707669954`*^9, 
   3.563326270776995*^9}, 3.5633289617307625`*^9, {3.56346431977687*^9, 
   3.563464319787871*^9}, {3.5634655021835003`*^9, 3.563465505590695*^9}, {
   3.5703059335284553`*^9, 3.570305935668458*^9}, {3.5703068511997395`*^9, 
   3.5703068832197847`*^9}, {3.6647510225381384`*^9, 3.66475102256514*^9}, 
   3.6647515226327424`*^9, {3.6648254218066044`*^9, 3.6648254218146048`*^9}, {
   3.664825912860691*^9, 3.6648259212281694`*^9}, {3.6752697195094457`*^9, 
   3.675269720053477*^9}, {3.675270648247566*^9, 3.6752706501916776`*^9}, {
   3.6916256116499887`*^9, 3.6916256140421257`*^9}, {3.6916258241281414`*^9, 
   3.6916258264002714`*^9}, 3.6916259457981005`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "m", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", "a", "*", 
      RowBox[{"b", "/", "f"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", "^", "2"}], "+", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "k"}], ")"}]}]}]}], ")"}]}], ",", "x"}], 
         "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "k"}], ")"}]}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "k"}], ")"}]}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607230540640354`*^9, 
   3.560723054514036*^9}, 3.56072313580415*^9, 3.562091159856965*^9, {
   3.562432845847722*^9, 3.5624328533477325`*^9}, {3.5624329452778616`*^9, 
   3.5624329483178663`*^9}, {3.562433067098032*^9, 3.562433074098042*^9}, {
   3.562433105618086*^9, 3.562433128268118*^9}, {3.5624380039322357`*^9, 
   3.5624380077644553`*^9}, {3.5624384863938313`*^9, 
   3.5624384891389885`*^9}, {3.563326270776995*^9, 3.563326270786995*^9}, 
   3.5633289721807775`*^9, 3.5634644661542425`*^9, {3.5634645310399537`*^9, 
   3.563464554178277*^9}, 3.5634645851010456`*^9, 3.5634653480566845`*^9, {
   3.563465513690158*^9, 3.5634655399336596`*^9}, 3.564109629540643*^9, {
   3.5699069881571407`*^9, 3.569906991757146*^9}, {3.5699088584897594`*^9, 
   3.5699088624197645`*^9}, {3.5703059399584637`*^9, 
   3.5703059747485127`*^9}, {3.570306934869857*^9, 3.5703070198799763`*^9}, {
   3.5703071435701494`*^9, 3.5703071439301496`*^9}, 3.5703071943102202`*^9, {
   3.5703072918703566`*^9, 3.5703072929503584`*^9}, {3.5703073336504154`*^9, 
   3.5703073339404154`*^9}, {3.570307513340667*^9, 3.570307513770667*^9}, 
   3.5703081206155195`*^9, {3.5703101110623083`*^9, 3.5703101115823092`*^9}, {
   3.5703143603472967`*^9, 3.570314360937298*^9}, {3.6647510475885715`*^9, 
   3.664751047598572*^9}, {3.664751085223724*^9, 3.6647510852337246`*^9}, 
   3.664751262512864*^9, 3.664751305813341*^9, 3.664825446996045*^9, 
   3.664825483705145*^9, 3.6648255541251726`*^9, 3.6648256072402105`*^9, 
   3.6648259314187527`*^9, {3.675269334283412*^9, 3.67526933879967*^9}, 
   3.6752695548300266`*^9, 3.675269800281066*^9, 3.6752698331509457`*^9, 
   3.675269891502283*^9, 3.67527043431933*^9, {3.6752706567500525`*^9, 
   3.6752706583181424`*^9}, 3.6758804639911833`*^9, {3.6916256144111466`*^9, 
   3.691625618216364*^9}, {3.6916258312035465`*^9, 3.6916258337766933`*^9}, 
   3.6916258867207217`*^9, 3.691625945806101*^9, {3.69162604840897*^9, 
   3.691626049008004*^9}, 3.691628002775753*^9, {3.691628184932172*^9, 
   3.6916281886023817`*^9}, {3.704986058534684*^9, 3.704986090215496*^9}, {
   3.705002719440632*^9, 3.705002723525866*^9}, {3.7050036707660446`*^9, 
   3.7050036735132017`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "m", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"-", "k"}], "*", "a", "*", 
      RowBox[{"b", "/", "f"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", "^", "2"}], "+", 
             RowBox[{
              RowBox[{"b", "^", "2"}], "*", 
              RowBox[{"x", "^", 
               RowBox[{"(", 
                RowBox[{"2", "*", "k"}], ")"}]}]}]}], ")"}]}], ",", "x"}], 
         "]"}], ",", "x", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "k"}], ")"}]}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "k"}], ")"}]}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.498070265173091*^9, 3.498070375231284*^9, 3.498070474665859*^9, 
   3.4980706418045526`*^9, {3.5607209908461466`*^9, 3.5607209939261513`*^9}, {
   3.5607210405662165`*^9, 3.5607210633462486`*^9}, {3.5607230540640354`*^9, 
   3.560723054514036*^9}, 3.56072313580415*^9, 3.562091159856965*^9, {
   3.562432845847722*^9, 3.5624328533477325`*^9}, {3.5624329452778616`*^9, 
   3.5624329483178663`*^9}, {3.562433067098032*^9, 3.562433074098042*^9}, {
   3.562433105618086*^9, 3.562433128268118*^9}, {3.5624380039322357`*^9, 
   3.5624380077644553`*^9}, {3.5624384863938313`*^9, 
   3.5624384891389885`*^9}, {3.563326270776995*^9, 3.563326270786995*^9}, 
   3.5633289721807775`*^9, 3.5634644661542425`*^9, {3.5634645310399537`*^9, 
   3.563464554178277*^9}, 3.5634645851010456`*^9, 3.5634653480566845`*^9, {
   3.563465513690158*^9, 3.5634655399336596`*^9}, 3.564109629540643*^9, {
   3.5699069881571407`*^9, 3.569906991757146*^9}, {3.5699088584897594`*^9, 
   3.5699088624197645`*^9}, {3.5703059399584637`*^9, 
   3.5703059747485127`*^9}, {3.570306934869857*^9, 3.5703070198799763`*^9}, {
   3.5703071435701494`*^9, 3.5703071439301496`*^9}, 3.5703071943102202`*^9, {
   3.5703072918703566`*^9, 3.5703072929503584`*^9}, {3.5703073336504154`*^9, 
   3.5703073339404154`*^9}, {3.570307513340667*^9, 3.570307513770667*^9}, 
   3.5703081206155195`*^9, {3.5703101110623083`*^9, 3.5703101115823092`*^9}, {
   3.5703143603472967`*^9, 3.570314360937298*^9}, {3.6647510475885715`*^9, 
   3.664751047598572*^9}, {3.664751085223724*^9, 3.6647510852337246`*^9}, 
   3.664751262512864*^9, 3.664751305813341*^9, 3.664825446996045*^9, 
   3.664825483705145*^9, 3.6648255541251726`*^9, 3.6648256072402105`*^9, 
   3.6648259314187527`*^9, {3.675269334283412*^9, 3.67526933879967*^9}, 
   3.6752695548300266`*^9, 3.675269800281066*^9, 3.6752698331509457`*^9, 
   3.675269891502283*^9, 3.67527043431933*^9, {3.6752706567500525`*^9, 
   3.6752706583181424`*^9}, {3.6752717905059*^9, 3.675271827470014*^9}, 
   3.6758804654542665`*^9, {3.691625618803398*^9, 3.6916256223606014`*^9}, {
   3.691625834610741*^9, 3.6916258367918663`*^9}, 3.6916258867297225`*^9, 
   3.6916259458151016`*^9, {3.691626049625039*^9, 3.691626050192072*^9}, 
   3.6916280027837534`*^9, {3.6916281924175997`*^9, 3.6916281956817865`*^9}, 
   3.704986103293244*^9, {3.7050027258980017`*^9, 3.705002730203248*^9}, {
   3.705003674819277*^9, 3.7050036774574275`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["8:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.56339703160865*^9, {3.56391092105877*^9, 
   3.5639109214487705`*^9}, {3.56407149076647*^9, 3.5640714911784935`*^9}, 
   3.5967450873913884`*^9, {3.613109863871028*^9, 3.613109869691036*^9}, {
   3.6131099187911043`*^9, 3.6131099187911043`*^9}, {3.613152850985051*^9, 
   3.613152852480053*^9}, {3.6131529152201433`*^9, 3.6131529154301434`*^9}, 
   3.6131542157020116`*^9, {3.6647341398905067`*^9, 3.6647341517731857`*^9}, {
   3.6647510226071424`*^9, 3.664751022615143*^9}, 3.6648123360897408`*^9, 
   3.6648254218406067`*^9, {3.664827359942459*^9, 3.664827363539665*^9}, {
   3.6652446644763784`*^9, 3.6652446647571793`*^9}, {3.665280686498615*^9, 
   3.6652806919898243`*^9}, {3.6652807406991105`*^9, 3.665280742181113*^9}, {
   3.665535386550073*^9, 3.665535491139222*^9}, {3.665535540206291*^9, 
   3.665535540946292*^9}, {3.665535578389345*^9, 3.6655356739464808`*^9}, {
   3.665598400865937*^9, 3.665598404953144*^9}, 3.6752688233551884`*^9, 
   3.675269071259368*^9, {3.6752704600067997`*^9, 3.6752704600067997`*^9}, {
   3.6752706757671404`*^9, 3.6752706757671404`*^9}, 3.6772141160257607`*^9, 
   3.677300712161065*^9, {3.679762286497814*^9, 3.6797623147218547`*^9}, 
   3.69162562285563*^9, 3.691625837460904*^9, 3.691626050895112*^9, 
   3.6916261960044117`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and integration by substitution\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.6131098747910433`*^9, 
   3.6131098780510473`*^9}, {3.6131099205211067`*^9, 
   3.6131099205211067`*^9}, {3.618171679730935*^9, 3.618171679730935*^9}, {
   3.664733072703467*^9, 3.6647330866732655`*^9}, {3.664733232171588*^9, 
   3.6647332421331577`*^9}, 3.675269721144539*^9, {3.6752697573036075`*^9, 
   3.6752697580906525`*^9}, 3.691625838036937*^9, 3.691626397988965*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "1"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       SuperscriptBox[
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "2"], ")"}], 
      FractionBox[
       RowBox[{"n", "-", "1"}], "2"]]]}], "\[Equal]", "0"}]], "Input",
  CellChangeTimes->{{3.664733265704506*^9, 3.6647332902809114`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.6131098747910433`*^9, 
   3.6131098780510473`*^9}, {3.6131099205211067`*^9, 
   3.6131099205211067`*^9}, {3.618171679730935*^9, 3.618171679730935*^9}, {
   3.664733072703467*^9, 3.664733102987199*^9}, 3.6647332969592934`*^9, {
   3.6647334953606415`*^9, 3.6647334953606415`*^9}, {3.6647510226431446`*^9, 
   3.6647510226521454`*^9}, {3.6648254218786087`*^9, 
   3.6648254218786087`*^9}, {3.665280796601009*^9, 3.665280796601009*^9}, {
   3.6652809026911955`*^9, 3.665280908088805*^9}, {3.6752697224756155`*^9, 
   3.6752697224756155`*^9}, {3.6752704696363506`*^9, 3.675270470337391*^9}, {
   3.691625838746978*^9, 3.691625838746978*^9}, {3.6916260514781456`*^9, 
   3.691626051939172*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"F", "[", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", " ", "f"}]], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], ",", "x", ",", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}]}]}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, 
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9, 
   3.5020747057249823`*^9}, 3.5036876317117357`*^9, {3.503777261976656*^9, 
   3.503777261976656*^9}, {3.50377732690397*^9, 3.503777330211176*^9}, {
   3.503792782953745*^9, 3.503792795793763*^9}, {3.5073147305104*^9, 
   3.507314753590432*^9}, {3.508354097003701*^9, 3.508354097003701*^9}, 
   3.5083882743859673`*^9, {3.6240642881916676`*^9, 3.6240642900716696`*^9}, {
   3.6240663443265724`*^9, 3.6240663499965806`*^9}, {3.624066444320714*^9, 
   3.624066444320714*^9}, {3.6240769227379007`*^9, 3.6240769258891068`*^9}, {
   3.6240775643242283`*^9, 3.6240775643242283`*^9}, {3.624738682187422*^9, 
   3.6247387036346483`*^9}, {3.6247391288039665`*^9, 3.62473913952558*^9}, {
   3.661537580127085*^9, 3.661537591815754*^9}, {3.661558550249508*^9, 
   3.661558550249508*^9}, {3.6764847315179267`*^9, 3.6764847315179267`*^9}, {
   3.67976116151988*^9, 3.67976116151988*^9}, {3.6916256283389435`*^9, 
   3.6916256304830656`*^9}, {3.6916259458231025`*^9, 3.6916259458231025`*^9}}],

Cell[TextData[{
 "Note: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["n", "2"], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{"3", " ", "m"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "<", "m", "<", "1"}]}]],
  CellChangeTimes->{{3.5020746334656553`*^9, 3.502074677364133*^9}}],
 ", ",
 "integration",
 " of ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       SuperscriptBox["x", "2"], 
       SuperscriptBox["a", "2"]]}], ")"}], 
    FractionBox[
     RowBox[{"n", "-", "1"}], "2"]]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
    3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
    3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
    3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
    3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
    3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
    3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
    3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
    3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
    3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
    3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
    3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
    3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
    3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
    3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
    3.5157913100709004`*^9, {3.5620995341037884`*^9, 
    3.5620995568338203`*^9}, {3.5633361468146753`*^9, 3.5633361468546753`*^9},
     3.5633883132890053`*^9, {3.5967450917513943`*^9, 3.59674510970142*^9}, {
    3.6647331884010844`*^9, 3.6647332266072693`*^9}, {3.664733387075448*^9, 
    3.6647334053944955`*^9}, {3.664733473958417*^9, 3.6647335641975784`*^9}, {
    3.664733736631441*^9, 3.664733773480549*^9}, {3.664733805089357*^9, 
    3.6647338094906087`*^9}, {3.664735022903012*^9, 3.6647350342526608`*^9}, {
    3.664735364013522*^9, 3.664735403630788*^9}, {3.6647354352215953`*^9, 
    3.664735444137105*^9}, {3.664735530667054*^9, 3.6647355602287455`*^9}, {
    3.6647356460806556`*^9, 3.6647357202818995`*^9}, {3.6647510227311497`*^9, 
    3.6647510228011537`*^9}, 3.664751389836147*^9, {3.66482542191061*^9, 
    3.6648254219276114`*^9}, {3.664825940972299*^9, 3.6648259471776543`*^9}, {
    3.665280872688343*^9, 3.6652808870091677`*^9}, {3.6652809400894613`*^9, 
    3.6652809544902873`*^9}, {3.665281047540851*^9, 3.6652810749999*^9}, {
    3.6652811062185545`*^9, 3.6652811206827803`*^9}, 3.675269071442378*^9, {
    3.675269723497674*^9, 3.6752697242467165`*^9}, {3.6752704875193734`*^9, 
    3.6752705011581535`*^9}, {3.67527068100144*^9, 3.675270682174507*^9}, {
    3.6797604862458687`*^9, 3.679760488925873*^9}, {3.6797605522119703`*^9, 
    3.6797606090610547`*^9}, {3.6797606734481544`*^9, 3.6797606769981594`*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " results in a complicated antiderivative involving elliptic integrals and \
the imaginary unit."
}], "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495733269136196*^9, 3.4958180204322743`*^9, 
   3.4958182231325583`*^9, {3.4986075703883314`*^9, 3.4986075816671515`*^9}, {
   3.5020746243708396`*^9, 3.502074625260041*^9}, {3.5020746842281446`*^9, 
   3.5020747057249823`*^9}, 3.5036876317117357`*^9, {3.503777261976656*^9, 
   3.503777261976656*^9}, {3.50377732690397*^9, 3.503777330211176*^9}, {
   3.503792782953745*^9, 3.503792795793763*^9}, {3.5073147305104*^9, 
   3.507314753590432*^9}, {3.508354097003701*^9, 3.508354097003701*^9}, 
   3.5083882743859673`*^9, {3.6240642881916676`*^9, 3.6240642900716696`*^9}, {
   3.6240663443265724`*^9, 3.6240663499965806`*^9}, {3.624066444320714*^9, 
   3.624066444320714*^9}, {3.6240769227379007`*^9, 3.6240769258891068`*^9}, {
   3.6240775643242283`*^9, 3.6240775643242283`*^9}, {3.624738682187422*^9, 
   3.6247387036346483`*^9}, {3.6247391288039665`*^9, 3.62473913952558*^9}, {
   3.661537580127085*^9, 3.661537591815754*^9}, {3.661558550249508*^9, 
   3.661558550249508*^9}, {3.6615606670215797`*^9, 3.6615607061098156`*^9}, {
   3.661560757098732*^9, 3.6615608499920454`*^9}, {3.661561418741576*^9, 
   3.661561548143977*^9}, {3.6615615904383965`*^9, 3.6615615948406487`*^9}, {
   3.6615622755255814`*^9, 3.6615622907584524`*^9}, {3.676485921683*^9, 
   3.676485922643055*^9}, {3.67648597430901*^9, 3.6764860301312027`*^9}, {
   3.676486124962627*^9, 3.676486175617524*^9}, {3.679760817655362*^9, 
   3.6797608196783657`*^9}, {3.6797608839014626`*^9, 
   3.6797608981724834`*^9}, {3.679760969544591*^9, 3.6797609830336103`*^9}, {
   3.679767453803277*^9, 3.679767453803277*^9}, {3.6916256316031303`*^9, 
   3.6916256316031303`*^9}, {3.69162584035207*^9, 3.6916258455153646`*^9}, {
   3.691626052716216*^9, 3.6916260653269377`*^9}, 3.6916263989990225`*^9}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.6131098747910433`*^9, 
   3.6131098780510473`*^9}, {3.6131099205211067`*^9, 
   3.6131099205211067`*^9}, {3.618171679730935*^9, 3.618171679730935*^9}, {
   3.664734160478684*^9, 3.664734160478684*^9}, {3.665535373280055*^9, 
   3.6655353760800586`*^9}, {3.665535471041193*^9, 3.665535471041193*^9}, {
   3.665598414627161*^9, 3.665598414627161*^9}, {3.675270476774759*^9, 
   3.675270476774759*^9}, {3.6752706796473627`*^9, 3.6752706796473627`*^9}, {
   3.6916258525217657`*^9, 3.6916258525217657`*^9}, {3.691626075465517*^9, 
   3.691626075465517*^9}, 3.7049861479097958`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["b", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"IntPart", "[", 
            FractionBox[
             RowBox[{"n", "-", "1"}], "2"], "]"}]}], "+", "1"}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"2", " ", 
          RowBox[{"FracPart", "[", 
           FractionBox[
            RowBox[{"n", "-", "1"}], "2"], "]"}]}]]}], 
       SuperscriptBox[
        RowBox[{"(", 
         SuperscriptBox[
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}], "2"], ")"}], 
        RowBox[{"FracPart", "[", 
         FractionBox[
          RowBox[{"n", "-", "1"}], "2"], "]"}]]]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}], "2"]}], ")"}], 
       FractionBox[
        RowBox[{"n", "-", "1"}], "2"]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"\[LongRightArrow]", "  ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"IntPart", "[", 
          FractionBox[
           RowBox[{"n", "-", "1"}], "2"], "]"}]}], "+", "1"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"2", " ", 
        RowBox[{"FracPart", "[", 
         FractionBox[
          RowBox[{"n", "-", "1"}], "2"], "]"}]}]]}], 
     RowBox[{"a", " ", "f", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "2"], ")"}], 
       RowBox[{"FracPart", "[", 
        FractionBox[
         RowBox[{"n", "-", "1"}], "2"], "]"}]]}]]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           SuperscriptBox["x", "2"], 
           SuperscriptBox["a", "2"]]}], ")"}], 
        FractionBox[
         RowBox[{"n", "-", "1"}], "2"]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"\[LongRightArrow]", "  ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["b", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"IntPart", "[", 
          FractionBox[
           RowBox[{"n", "-", "1"}], "2"], "]"}]}], "+", "1"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"2", " ", 
        RowBox[{"FracPart", "[", 
         FractionBox[
          RowBox[{"n", "-", "1"}], "2"], "]"}]}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"m", "+", "1"}]]}], 
     RowBox[{"a", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox[
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "2"], ")"}], 
       RowBox[{"FracPart", "[", 
        FractionBox[
         RowBox[{"n", "-", "1"}], "2"], "]"}]]}]]}], " ", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "+", "m"}], "2"], ",", 
     FractionBox[
      RowBox[{"1", "-", "n"}], "2"], ",", 
     FractionBox[
      RowBox[{"3", "+", "m"}], "2"], ",", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "2"]}], "]"}]}]}]}], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5967450917513943`*^9, 3.59674510970142*^9}, {3.6647331884010844`*^9, 
   3.6647332266072693`*^9}, {3.664733387075448*^9, 3.6647334053944955`*^9}, {
   3.664733473958417*^9, 3.6647335641975784`*^9}, {3.664733736631441*^9, 
   3.664733773480549*^9}, {3.664733805089357*^9, 3.6647338094906087`*^9}, {
   3.664735022903012*^9, 3.6647350342526608`*^9}, {3.664735364013522*^9, 
   3.664735403630788*^9}, {3.6647354352215953`*^9, 3.664735444137105*^9}, {
   3.664735530667054*^9, 3.6647355602287455`*^9}, {3.6647356460806556`*^9, 
   3.6647357202818995`*^9}, {3.6647510227311497`*^9, 3.6647510228011537`*^9}, 
   3.664751389836147*^9, {3.66482542191061*^9, 3.6648254219276114`*^9}, {
   3.664825940972299*^9, 3.6648259471776543`*^9}, {3.665280872688343*^9, 
   3.6652808870091677`*^9}, {3.6652809400894613`*^9, 
   3.6652809544902873`*^9}, {3.665281047540851*^9, 3.6652810749999*^9}, {
   3.6652811062185545`*^9, 3.6652811206827803`*^9}, 3.675269071442378*^9, {
   3.675269723497674*^9, 3.6752697242467165`*^9}, {3.6752704875193734`*^9, 
   3.6752705011581535`*^9}, {3.67527068100144*^9, 3.675270682174507*^9}, {
   3.6797604862458687`*^9, 3.679760488925873*^9}, {3.6797605522119703`*^9, 
   3.6797606090610547`*^9}, {3.6797606734481544`*^9, 
   3.6797606769981594`*^9}, {3.679761627564686*^9, 3.679761666878742*^9}, {
   3.6916256326641903`*^9, 3.691625637881489*^9}, {3.6916258536058273`*^9, 
   3.6916258562889814`*^9}, 3.691625945831103*^9, {3.6916260764355726`*^9, 
   3.6916260928275104`*^9}, 3.691626196173422*^9, 3.6916306698335624`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691625857366043*^9, 3.6916259082809553`*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b_.", "*", 
         RowBox[{"cos", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", 
         RowBox[{"IntPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "+", "1"}], 
       ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"FracPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "f", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^", 
         RowBox[{"FracPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}], 
     "*", "\n", "    ", 
     RowBox[{"Subst", "[", 
      RowBox[{
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "m"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "/", 
              RowBox[{"a", "^", "2"}]}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}]}], ",", 
         "x"}], "]"}], ",", "x", ",", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"RationalQ", "[", "n", "]"}], " ", "||", " ", 
       RowBox[{
        RowBox[{"Not", "[", 
         RowBox[{"RationalQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"EqQ", "[", 
           RowBox[{"b", ",", "1"}], "]"}], " ", "||", " ", 
          RowBox[{"NeQ", "[", 
           RowBox[{"a", ",", "1"}], "]"}]}], ")"}]}]}], ")"}]}]}]}], " ", 
  "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.5633887795270243`*^9, 3.563388798917858*^9}, {
   3.563393580921319*^9, 3.563393597401342*^9}, {3.5967451332814527`*^9, 
   3.596745156641485*^9}, {3.6131095934946456`*^9, 3.6131096021046576`*^9}, {
   3.6131096725567575`*^9, 3.61310967448676*^9}, {3.613109887561061*^9, 
   3.6131099357411284`*^9}, 3.618171683459148*^9, 3.66473401669646*^9, {
   3.664734173376422*^9, 3.664734176363592*^9}, {3.6647350534437585`*^9, 
   3.6647350597341185`*^9}, {3.6647357838575363`*^9, 
   3.6647357904039106`*^9}, {3.664751047660576*^9, 3.664751047679577*^9}, {
   3.664751085293728*^9, 3.6647510853037286`*^9}, 3.664751262524865*^9, 
   3.664751305832342*^9, 3.6648254470510483`*^9, 3.6648254837561474`*^9, 
   3.6648255541391735`*^9, 3.6648259548890953`*^9, {3.6652811425394187`*^9, 
   3.6652812024983244`*^9}, {3.6652812906640797`*^9, 
   3.6652812938308854`*^9}, {3.6652814220313115`*^9, 
   3.6652814315805283`*^9}, {3.6652854784220695`*^9, 3.665285533525366*^9}, {
   3.6655357055385246`*^9, 3.6655357352015676`*^9}, {3.6655984372794013`*^9, 
   3.66559844203741*^9}, {3.6752693510873733`*^9, 3.675269354687579*^9}, 
   3.6752695564341183`*^9, 3.675269598382518*^9, 3.675269802522194*^9, 
   3.675269835167061*^9, 3.675269893383391*^9, {3.675270507927541*^9, 
   3.6752705183591375`*^9}, {3.6752706863427453`*^9, 3.67527068764682*^9}, 
   3.675271929280837*^9, 3.6797620515403147`*^9, {3.679783925814416*^9, 
   3.679783975040231*^9}, {3.6797841450409546`*^9, 3.679784156029583*^9}, {
   3.6916256383245144`*^9, 3.6916256421497335`*^9}, {3.6916258579250746`*^9, 
   3.691625886737723*^9}, 3.691625945839103*^9, {3.691626098796852*^9, 
   3.69162610349312*^9}, 3.691628002791754*^9, {3.6916282022801642`*^9, 
   3.691628205439345*^9}, {3.7061381625734496`*^9, 3.706138176273469*^9}, {
   3.715288878053872*^9, 3.715288879738675*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "*", 
         RowBox[{"cos", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"b", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "*", 
          RowBox[{"IntPart", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "+", "1"}], 
        ")"}]}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"FracPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "f", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^", 
         RowBox[{"FracPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}], 
     "*", "\n", "    ", 
     RowBox[{"Subst", "[", 
      RowBox[{
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "m"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"x", "^", "2"}], "/", 
              RowBox[{"a", "^", "2"}]}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}]}], ",", 
         "x"}], "]"}], ",", "x", ",", 
       RowBox[{"a", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], " ", "/;", "\n", 
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.5633887795270243`*^9, 3.563388798917858*^9}, {
   3.563393580921319*^9, 3.563393597401342*^9}, {3.5967451332814527`*^9, 
   3.596745156641485*^9}, {3.6131095934946456`*^9, 3.6131096021046576`*^9}, {
   3.6131096725567575`*^9, 3.61310967448676*^9}, {3.613109887561061*^9, 
   3.6131099357411284`*^9}, 3.618171683459148*^9, 3.66473401669646*^9, {
   3.664734173376422*^9, 3.664734176363592*^9}, {3.6647350534437585`*^9, 
   3.6647350597341185`*^9}, {3.6647357838575363`*^9, 
   3.6647357904039106`*^9}, {3.664751047660576*^9, 3.664751047679577*^9}, {
   3.664751085293728*^9, 3.6647510853037286`*^9}, 3.664751262524865*^9, 
   3.664751305832342*^9, 3.6648254470510483`*^9, 3.6648254837561474`*^9, 
   3.6648255541391735`*^9, 3.6648259548890953`*^9, {3.6652811425394187`*^9, 
   3.6652812024983244`*^9}, {3.6652812906640797`*^9, 
   3.6652812938308854`*^9}, {3.6652814220313115`*^9, 
   3.6652814315805283`*^9}, {3.6652854784220695`*^9, 3.665285533525366*^9}, {
   3.6655357055385246`*^9, 3.6655357352015676`*^9}, {3.6655984372794013`*^9, 
   3.66559844203741*^9}, {3.6752693510873733`*^9, 3.675269354687579*^9}, 
   3.6752695564341183`*^9, 3.675269598382518*^9, 3.675269802522194*^9, 
   3.675269835167061*^9, 3.675269893383391*^9, {3.675270507927541*^9, 
   3.6752705183591375`*^9}, {3.6752706863427453`*^9, 3.67527068764682*^9}, 
   3.675271929280837*^9, {3.6797620515403147`*^9, 3.679762102155388*^9}, 
   3.6797622737447786`*^9, {3.6797840121123514`*^9, 3.6797840416580415`*^9}, {
   3.6797840793731985`*^9, 3.679784093392*^9}, {3.6797841484161477`*^9, 
   3.679784152361373*^9}, {3.691625646652991*^9, 3.6916256497251663`*^9}, {
   3.691625861036253*^9, 3.6916258867457232`*^9}, 3.6916259458471036`*^9, {
   3.69162610418116*^9, 3.6916261077483635`*^9}, 3.6916280027997546`*^9, {
   3.691628209446574*^9, 3.691628213973833*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"b", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", 
         RowBox[{"IntPart", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "+", "1"}], 
       ")"}]}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"2", "*", 
       RowBox[{"FracPart", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ")"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "f", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^", 
        RowBox[{"FracPart", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}], 
    "*", "\[IndentingNewLine]", "    ", 
    RowBox[{"Hypergeometric2F1", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "m"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "n"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", "m"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}]}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"SimplerQ", "[", 
     RowBox[{"n", ",", "m"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.5633887795270243`*^9, 3.563388798917858*^9}, {
   3.563393580921319*^9, 3.563393597401342*^9}, {3.5967451332814527`*^9, 
   3.596745156641485*^9}, {3.6131095934946456`*^9, 3.6131096021046576`*^9}, {
   3.6131096725567575`*^9, 3.61310967448676*^9}, {3.613109887561061*^9, 
   3.6131099357411284`*^9}, 3.618171683459148*^9, 3.66473401669646*^9, {
   3.664734173376422*^9, 3.664734176363592*^9}, {3.6647350534437585`*^9, 
   3.6647350597341185`*^9}, {3.6647357838575363`*^9, 
   3.6647357904039106`*^9}, {3.664751047660576*^9, 3.664751047679577*^9}, {
   3.664751085293728*^9, 3.6647510853037286`*^9}, 3.664751262524865*^9, 
   3.664751305832342*^9, 3.6648254470510483`*^9, 3.6648254837561474`*^9, 
   3.6648255541391735`*^9, 3.6648259548890953`*^9, {3.6652811425394187`*^9, 
   3.6652812024983244`*^9}, {3.6652812906640797`*^9, 
   3.6652812938308854`*^9}, {3.6652814220313115`*^9, 
   3.6652814315805283`*^9}, {3.6652854784220695`*^9, 3.665285533525366*^9}, {
   3.6655357055385246`*^9, 3.6655357352015676`*^9}, {3.6655984372794013`*^9, 
   3.66559844203741*^9}, {3.6752693510873733`*^9, 3.675269354687579*^9}, 
   3.6752695564341183`*^9, 3.675269598382518*^9, 3.675269802522194*^9, 
   3.675269835167061*^9, 3.675269893383391*^9, {3.675270507927541*^9, 
   3.6752705183591375`*^9}, {3.6752706863427453`*^9, 3.67527068764682*^9}, 
   3.675271929280837*^9, {3.6797620515403147`*^9, 3.679762102155388*^9}, 
   3.6797622737447786`*^9, {3.6916256533793755`*^9, 3.691625656296542*^9}, {
   3.6916258677876387`*^9, 3.6916258867647247`*^9}, {3.6916261178269405`*^9, 
   3.69162612499335*^9}, 3.6916280028167553`*^9, {3.6916282355680685`*^9, 
   3.691628239256279*^9}, 3.6916306715235643`*^9, {3.7050884802170715`*^9, 
   3.7050884929458*^9}, {3.7050889157539825`*^9, 3.705088917934108*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"cos", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "*", 
        RowBox[{"IntPart", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "+", "1"}], 
      ")"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"2", "*", 
       RowBox[{"FracPart", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], ")"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "f", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}], ")"}], "^", 
        RowBox[{"FracPart", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}], 
    "*", "\[IndentingNewLine]", "    ", 
    RowBox[{"Hypergeometric2F1", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "m"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "n"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", "m"}], ")"}], "/", "2"}], ",", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}]}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.5633887795270243`*^9, 3.563388798917858*^9}, {
   3.563393580921319*^9, 3.563393597401342*^9}, {3.5967451332814527`*^9, 
   3.596745156641485*^9}, {3.6131095934946456`*^9, 3.6131096021046576`*^9}, {
   3.6131096725567575`*^9, 3.61310967448676*^9}, {3.613109887561061*^9, 
   3.6131099357411284`*^9}, 3.618171683459148*^9, 3.66473401669646*^9, {
   3.664734173376422*^9, 3.664734176363592*^9}, {3.6647350534437585`*^9, 
   3.6647350597341185`*^9}, {3.6647357838575363`*^9, 
   3.6647357904039106`*^9}, {3.664751047660576*^9, 3.664751047679577*^9}, {
   3.664751085293728*^9, 3.6647510853037286`*^9}, 3.664751262524865*^9, 
   3.664751305832342*^9, 3.6648254470510483`*^9, 3.6648254837561474`*^9, 
   3.6648255541391735`*^9, 3.6648259548890953`*^9, {3.6652811425394187`*^9, 
   3.6652812024983244`*^9}, {3.6652812906640797`*^9, 
   3.6652812938308854`*^9}, {3.6652814220313115`*^9, 
   3.6652814315805283`*^9}, {3.6652854784220695`*^9, 3.665285533525366*^9}, {
   3.6655357055385246`*^9, 3.6655357352015676`*^9}, {3.6655984372794013`*^9, 
   3.66559844203741*^9}, {3.6752693510873733`*^9, 3.675269354687579*^9}, 
   3.6752695564341183`*^9, 3.675269598382518*^9, 3.675269802522194*^9, 
   3.675269835167061*^9, 3.675269893383391*^9, {3.675270507927541*^9, 
   3.6752705183591375`*^9}, {3.6752706863427453`*^9, 3.67527068764682*^9}, 
   3.675271929280837*^9, 3.6797620515403147`*^9, {3.691625650500211*^9, 
   3.691625652673335*^9}, {3.691625863420389*^9, 3.691625886755724*^9}, {
   3.691626109028437*^9, 3.6916261169698915`*^9}, 3.691628002808755*^9, {
   3.691628218203075*^9, 3.691628221908287*^9}, 3.691630670963564*^9, {
   3.7049407433286657`*^9, 3.704940760537496*^9}, 3.705088475865823*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
      "\[And]", " ", 
      RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.664827176443964*^9, 
   3.664827177297013*^9}, {3.6652446551943626`*^9, 3.6652446553659625`*^9}, {
   3.665280730478092*^9, 3.6652807369707036`*^9}, {3.665535368260048*^9, 
   3.6655353811100655`*^9}, 3.6655983811913023`*^9, {3.675268773444334*^9, 
   3.6752688025980015`*^9}, 3.675268890045003*^9, 3.6773516017542915`*^9, 
   3.6916271111517553`*^9, {3.691627225703307*^9, 3.6916272532208815`*^9}, 
   3.691627470783325*^9, {3.6916276709417734`*^9, 3.69162767561104*^9}, {
   3.6916310640901237`*^9, 3.691631064350124*^9}, {3.7049877140943766`*^9, 
   3.704987731377365*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"m", "-", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, {
   3.6142960499257836`*^9, 3.614296050312806*^9}, {3.6647510219261036`*^9, 
   3.6647510219381046`*^9}, 3.6648123069000716`*^9, 3.6648254215125875`*^9, {
   3.6652650235033016`*^9, 3.6652650236433015`*^9}, {3.6652650906403975`*^9, 
   3.6652650970704064`*^9}, {3.6653361052295103`*^9, 3.665336113919523*^9}, {
   3.665336177809614*^9, 3.6653362044226522`*^9}, {3.665336347834861*^9, 
   3.665336372902896*^9}, {3.6653364235049686`*^9, 3.665336430858979*^9}, 
   3.677351570164236*^9, 3.677351692718052*^9, 3.677351813306263*^9, {
   3.677351862177949*^9, 3.677351862177949*^9}, 3.677365940448945*^9, 
   3.6916271117357883`*^9, 3.6916272263573446`*^9, 3.6916272570290985`*^9, {
   3.691627471423362*^9, 3.69162747227341*^9}, 3.6916276864386597`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"m", "-", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6653362090346584`*^9, 3.6653362090346584`*^9}, {3.665336379212905*^9, 
   3.665336379212905*^9}, {3.6653364368089876`*^9, 3.6653364368089876`*^9}, {
   3.677351862973551*^9, 3.677351862973551*^9}, {3.6916274744805365`*^9, 
   3.6916274744805365`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"b", " ", 
          RowBox[{"Sec", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
        RowBox[{"n", "-", "1"}]]}], 
      RowBox[{"a", " ", "f", " ", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.664751021967106*^9, 3.664751022005108*^9}, 3.6647513634866395`*^9, {
   3.6648254215285883`*^9, 3.664825421542589*^9}, {3.664825847769968*^9, 
   3.6648258490480413`*^9}, {3.6652653285067377`*^9, 
   3.6652653746248035`*^9}, {3.6652654190048666`*^9, 3.665265424574875*^9}, 
   3.6653361239665375`*^9, {3.6653361570825844`*^9, 3.6653361651975965`*^9}, {
   3.6653363832029104`*^9, 3.6653363849129133`*^9}, {3.6773516935760527`*^9, 
   3.6773516951048555`*^9}, 3.677351814101865*^9, 3.67735186826196*^9, 
   3.677365941192988*^9, {3.6773659738428555`*^9, 3.6773659780640965`*^9}, {
   3.691627115480003*^9, 3.6916271171180964`*^9}, {3.6916272270373836`*^9, 
   3.6916272281894493`*^9}, 3.691627279758399*^9, {3.6916273389187827`*^9, 
   3.6916273397578306`*^9}, {3.6916274751275735`*^9, 
   3.6916274756246023`*^9}, {3.6916276866256704`*^9, 3.6916277008444834`*^9}, 
   3.6916307544196825`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691627358699914*^9, 3.6916308924418793`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"b", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"a", "*", "f", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"m", "-", "n", "+", "2"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, {3.6131518294460845`*^9, 
   3.6131518783611546`*^9}, 3.6131519172612104`*^9, 3.6131557968588023`*^9, {
   3.6647510474125614`*^9, 3.664751047439563*^9}, {3.664751085083716*^9, 
   3.6647510850937166`*^9}, 3.6647512624788623`*^9, 3.6647513057653384`*^9, {
   3.66482544690804*^9, 3.6648254469160404`*^9}, 3.6648254836051393`*^9, 
   3.6648255540921707`*^9, 3.6648256072142096`*^9, 3.6648258785257273`*^9, 
   3.665294612086726*^9, {3.6653362126346636`*^9, 3.6653362134046645`*^9}, {
   3.6653363975669317`*^9, 3.665336398976934*^9}, {3.665336441228994*^9, 
   3.6653364661370296`*^9}, {3.665336498863076*^9, 3.6653365173881025`*^9}, {
   3.677351698614862*^9, 3.6773517011264668`*^9}, {3.6773518736439695`*^9, 
   3.6773518868259926`*^9}, 3.6773519967289853`*^9, {3.6773661082865453`*^9, 
   3.677366113220827*^9}, {3.6773661962015734`*^9, 3.6773662005728235`*^9}, {
   3.6916271177691336`*^9, 3.6916271218393664`*^9}, {3.6916273595199614`*^9, 
   3.6916273626551404`*^9}, {3.6916274761616325`*^9, 
   3.6916274776307163`*^9}, {3.69162783085492*^9, 3.691627834562132*^9}, 
   3.6916280028247557`*^9, {3.6916307760937133`*^9, 3.691630800196748*^9}, 
   3.691699634621176*^9, {3.7049862997924833`*^9, 3.7049863474992123`*^9}, 
   3.715289006960903*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.665265021843299*^9, 
   3.6652650221932993`*^9}, 3.665265061682356*^9, {3.665335847482144*^9, 
   3.6653358728581796`*^9}, {3.6653363552288713`*^9, 3.6653363554688716`*^9}, 
   3.6773515708194375`*^9, 3.677351704917273*^9, 3.677351814803866*^9, 
   3.6773659418330245`*^9, 3.6916271246555276`*^9, 3.691627365357295*^9, 
   3.6916274803998747`*^9, 3.691627686812681*^9, {3.7049869353098326`*^9, 
   3.7049869353098326`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093961670887*^9, 3.5620939657108927`*^9}, 
   3.5621008854756804`*^9, {3.562101097145976*^9, 3.5621010974159765`*^9}, {
   3.563336146124674*^9, 3.563336146134674*^9}, 3.56339702474864*^9, 
   3.5967434047090325`*^9, 3.6131542135970087`*^9, {3.6647510217910957`*^9, 
   3.6647510218000965`*^9}, 3.664812325955161*^9, 3.6648254214035816`*^9, 
   3.66526506465236*^9, 3.6652651071204205`*^9, 3.6653358889362025`*^9, {
   3.677350708917924*^9, 3.677350708917924*^9}, 3.6773515713030386`*^9, 
   3.6773517056348743`*^9, 3.677351815365467*^9, {3.677352055459488*^9, 
   3.6773520563018894`*^9}, 3.6773659424890623`*^9, 3.6916271251355553`*^9, 
   3.6916273660133324`*^9, {3.6916274808959036`*^9, 3.6916274814009323`*^9}, 
   3.6916276869966917`*^9, {3.704986851306028*^9, 3.7049868552072515`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.677350711523128*^9, 
   3.677350711523128*^9}, {3.6773520623858995`*^9, 3.6773520623858995`*^9}, {
   3.6916274820809712`*^9, 3.6916274820809712`*^9}, {3.704986860016526*^9, 
   3.704986860016526*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"a", " ", "b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"m", "-", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{"n", "-", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, {
   3.4991316099529505`*^9, 3.499131627882976*^9}, {3.515791020128791*^9, 
   3.515791023467197*^9}, {3.5633361461446743`*^9, 3.5633361461846743`*^9}, {
   3.563337203206154*^9, 3.5633372066061587`*^9}, {3.5967434117790422`*^9, 
   3.5967434897691517`*^9}, {3.664751021808097*^9, 3.664751021845099*^9}, 
   3.6647513591453915`*^9, {3.664825421418582*^9, 3.664825421432583*^9}, {
   3.6648257493963413`*^9, 3.6648257512584476`*^9}, {3.665265125414448*^9, 
   3.6652651859915338`*^9}, 3.665335916084242*^9, {3.6653359676673155`*^9, 
   3.6653359707473197`*^9}, {3.677351707070077*^9, 3.677351710595683*^9}, 
   3.677351816020668*^9, {3.6773519317696714`*^9, 3.6773519345932765`*^9}, 
   3.677365943224104*^9, {3.6773660410627003`*^9, 3.6773660515392995`*^9}, {
   3.6916271260766087`*^9, 3.6916271282737346`*^9}, {3.691627366788377*^9, 
   3.691627369390526*^9}, {3.6916274829730225`*^9, 3.6916274851211452`*^9}, {
   3.6916276871787024`*^9, 3.691627732024267*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6916273702915773`*^9, 3.69163089251188*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, {3.499131609972951*^9, 3.499131627892976*^9}, {
   3.515791052467648*^9, 3.5157910664764724`*^9}, 3.5488198662059374`*^9, 
   3.560970356221982*^9, 3.5609706292285385`*^9, {3.5633361461946745`*^9, 
   3.5633361462346745`*^9}, {3.563337222526181*^9, 3.5633372247461843`*^9}, {
   3.5633935808613186`*^9, 3.5633935973413415`*^9}, 3.5967435587392483`*^9, 
   3.596743597729303*^9, 3.5967436893694315`*^9, {3.5967437730195484`*^9, 
   3.5967437738095493`*^9}, 3.6131089644797215`*^9, {3.613152201071618*^9, 
   3.6131522596667023`*^9}, {3.613152292416749*^9, 3.613152307726771*^9}, 
   3.613155743798726*^9, {3.664751046776525*^9, 3.6647510468025265`*^9}, {
   3.664751084657692*^9, 3.664751084667692*^9}, 3.6647512623598557`*^9, 
   3.6647513056483316`*^9, {3.664825446697028*^9, 3.664825446706029*^9}, 
   3.664825483292121*^9, 3.664825553989165*^9, 3.6648256070582*^9, 
   3.6648257862494497`*^9, 3.665294608022494*^9, {3.6773517141992893`*^9, 
   3.6773517179588957`*^9}, 3.677351905889226*^9, {3.677351936106479*^9, 
   3.6773519385400834`*^9}, {3.6773519978209867`*^9, 3.6773520151358175`*^9}, 
   3.6773520721359167`*^9, {3.677366129807776*^9, 3.6773661340050163`*^9}, {
   3.677366214899643*^9, 3.6773662190028777`*^9}, 3.679762550617195*^9, {
   3.6916271288837695`*^9, 3.691627133529035*^9}, {3.6916273708356085`*^9, 
   3.691627373000732*^9}, {3.691627486011196*^9, 3.691627489384389*^9}, {
   3.691627848666939*^9, 3.691627851894123*^9}, 3.691628002843757*^9, {
   3.691630826429785*^9, 3.691630828510788*^9}, 3.6916308637758384`*^9, 
   3.6916996346581783`*^9, {3.704986165232787*^9, 3.7049861791755843`*^9}, {
   3.7049869060941615`*^9, 3.7049869157047114`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, {
   3.6142960499257836`*^9, 3.614296050312806*^9}, {3.6647510219261036`*^9, 
   3.6647510219381046`*^9}, 3.6648123069000716`*^9, 3.6648254215125875`*^9, {
   3.6652650235033016`*^9, 3.6652650236433015`*^9}, {3.6652650906403975`*^9, 
   3.6652650970704064`*^9}, {3.6653361052295103`*^9, 3.665336113919523*^9}, {
   3.665336177809614*^9, 3.6653362044226522`*^9}, {3.6653363566988735`*^9, 
   3.6653363568688736`*^9}, 3.67735157223904*^9, 3.6773517371469297`*^9, 
   3.6773518190626736`*^9, 3.677365944881199*^9, 3.6916271602315626`*^9, 
   3.6916273831573133`*^9, 3.691627506207351*^9, 3.691627687683731*^9, {
   3.704985801814*^9, 3.704985801814*^9}, {3.704986752244362*^9, 
   3.704986752745391*^9}, {3.704986815432976*^9, 3.704986830568842*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6653362090346584`*^9, 3.6653362090346584`*^9}, {3.704985806443265*^9, 
   3.704985806443265*^9}, {3.7049868357551384`*^9, 3.7049868357551384`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"n", "-", "1"}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "n", "+", "2"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       FractionBox[
        RowBox[{"b", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"m", "+", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "-", "1"}]]}], 
        RowBox[{"a", " ", "f", " ", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "n", "+", "2"}], ")"}]}], 
    RowBox[{"n", "-", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.664751021967106*^9, 3.664751022005108*^9}, 3.6647513634866395`*^9, {
   3.6648254215285883`*^9, 3.664825421542589*^9}, {3.664825847769968*^9, 
   3.6648258490480413`*^9}, {3.6652653285067377`*^9, 
   3.6652653746248035`*^9}, {3.6652654190048666`*^9, 3.665265424574875*^9}, 
   3.6653361239665375`*^9, {3.6653361570825844`*^9, 3.6653361651975965`*^9}, {
   3.677351738410532*^9, 3.6773517405165358`*^9}, {3.6773518196554747`*^9, 
   3.6773518201858754`*^9}, {3.677351945762896*^9, 3.677351964101728*^9}, 
   3.6773659456802444`*^9, {3.6773660745516157`*^9, 3.677366084194167*^9}, {
   3.6797624009139786`*^9, 3.6797624021939807`*^9}, {3.691627165660873*^9, 
   3.69162716840903*^9}, {3.6916273839323573`*^9, 3.6916273849824176`*^9}, {
   3.691627507148405*^9, 3.691627508753497*^9}, 3.691627687852741*^9, {
   3.6916277619829807`*^9, 3.691627773497639*^9}, 3.6916307558396845`*^9, {
   3.7049851792373915`*^9, 3.704985184478691*^9}, {3.7049852172605658`*^9, 
   3.704985259938007*^9}, {3.7049856286970987`*^9, 3.704985635630495*^9}, 
   3.704985687152442*^9, {3.7049857245375805`*^9, 3.704985761089671*^9}, {
   3.7049865048032093`*^9, 3.7049866738878803`*^9}, 3.704986710486974*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.69162738537744*^9, 3.6916308849698687`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, {3.6131518294460845`*^9, 
   3.6131518783611546`*^9}, 3.6131519172612104`*^9, 3.6131557968588023`*^9, {
   3.6647510474125614`*^9, 3.664751047439563*^9}, {3.664751085083716*^9, 
   3.6647510850937166`*^9}, 3.6647512624788623`*^9, 3.6647513057653384`*^9, {
   3.66482544690804*^9, 3.6648254469160404`*^9}, 3.6648254836051393`*^9, 
   3.6648255540921707`*^9, 3.6648256072142096`*^9, 3.6648258785257273`*^9, 
   3.665294612086726*^9, {3.6653362126346636`*^9, 3.6653362134046645`*^9}, {
   3.6773517445101423`*^9, 3.6773517475053477`*^9}, 3.677351910428834*^9, {
   3.6773519466364975`*^9, 3.677351965614931*^9}, {3.6773519997865906`*^9, 
   3.677352018177822*^9}, {3.677352129700018*^9, 3.677352131837222*^9}, {
   3.677366162063621*^9, 3.6773661648347797`*^9}, {3.6773662641434593`*^9, 
   3.6773662677396655`*^9}, 3.679762486021102*^9, {3.6916271692510786`*^9, 
   3.691627173760336*^9}, {3.6916273857554617`*^9, 3.691627387440558*^9}, {
   3.691627509731553*^9, 3.6916275115846586`*^9}, {3.6916278850460196`*^9, 
   3.6916278883392076`*^9}, 3.691628002882759*^9, 3.691630777563715*^9, 
   3.691630867825844*^9, {3.6916309471869583`*^9, 3.691630949336961*^9}, 
   3.6916996347301826`*^9, {3.7049858215301285`*^9, 3.7049858917081423`*^9}, {
   3.7049868390623274`*^9, 3.704986841222451*^9}, 3.7049870719706492`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.665265021843299*^9, 
   3.6652650221932993`*^9}, 3.665265061682356*^9, {3.665335847482144*^9, 
   3.6653358728581796`*^9}, {3.6653363552288713`*^9, 3.6653363554688716`*^9}, 
   3.6773515708194375`*^9, 3.677351704917273*^9, 3.677351814803866*^9, 
   3.6773659418330245`*^9, 3.6916271246555276`*^9, 3.691627365357295*^9, 
   3.6916274803998747`*^9, 3.691627686812681*^9, {3.7049869353098326`*^9, 
   3.7049869353098326`*^9}, {3.704990131108622*^9, 3.7049901477615747`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093961670887*^9, 3.5620939657108927`*^9}, 
   3.5621008854756804`*^9, {3.562101097145976*^9, 3.5621010974159765`*^9}, {
   3.563336146124674*^9, 3.563336146134674*^9}, 3.56339702474864*^9, 
   3.5967434047090325`*^9, 3.6131542135970087`*^9, {3.6647510217910957`*^9, 
   3.6647510218000965`*^9}, 3.664812325955161*^9, 3.6648254214035816`*^9, 
   3.66526506465236*^9, 3.6652651071204205`*^9, 3.6653358889362025`*^9, {
   3.677350708917924*^9, 3.677350708917924*^9}, 3.6773515713030386`*^9, 
   3.6773517056348743`*^9, 3.677351815365467*^9, {3.677352055459488*^9, 
   3.6773520563018894`*^9}, 3.6773659424890623`*^9, 3.6916271251355553`*^9, 
   3.6916273660133324`*^9, {3.6916274808959036`*^9, 3.6916274814009323`*^9}, 
   3.6916276869966917`*^9, {3.704986851306028*^9, 3.7049868552072515`*^9}, {
   3.704990186912814*^9, 3.704990190552022*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.677350711523128*^9, 
   3.677350711523128*^9}, {3.6773520623858995`*^9, 3.6773520623858995`*^9}, {
   3.6916274820809712`*^9, 3.6916274820809712`*^9}, {3.704986860016526*^9, 
   3.704986860016526*^9}, {3.7049901952802925`*^9, 3.7049901952802925`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"a", " ", "b", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "1"}], 
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, {
   3.4991316099529505`*^9, 3.499131627882976*^9}, {3.515791020128791*^9, 
   3.515791023467197*^9}, {3.5633361461446743`*^9, 3.5633361461846743`*^9}, {
   3.563337203206154*^9, 3.5633372066061587`*^9}, {3.5967434117790422`*^9, 
   3.5967434897691517`*^9}, {3.664751021808097*^9, 3.664751021845099*^9}, 
   3.6647513591453915`*^9, {3.664825421418582*^9, 3.664825421432583*^9}, {
   3.6648257493963413`*^9, 3.6648257512584476`*^9}, {3.665265125414448*^9, 
   3.6652651859915338`*^9}, 3.665335916084242*^9, {3.6653359676673155`*^9, 
   3.6653359707473197`*^9}, {3.677351707070077*^9, 3.677351710595683*^9}, 
   3.677351816020668*^9, {3.6773519317696714`*^9, 3.6773519345932765`*^9}, 
   3.677365943224104*^9, {3.6773660410627003`*^9, 3.6773660515392995`*^9}, {
   3.6916271260766087`*^9, 3.6916271282737346`*^9}, {3.691627366788377*^9, 
   3.691627369390526*^9}, {3.6916274829730225`*^9, 3.6916274851211452`*^9}, {
   3.6916276871787024`*^9, 3.691627732024267*^9}, {3.7049899026835566`*^9, 
   3.704990079564674*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6916273702915773`*^9, 3.69163089251188*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, {3.499131609972951*^9, 3.499131627892976*^9}, {
   3.515791052467648*^9, 3.5157910664764724`*^9}, 3.5488198662059374`*^9, 
   3.560970356221982*^9, 3.5609706292285385`*^9, {3.5633361461946745`*^9, 
   3.5633361462346745`*^9}, {3.563337222526181*^9, 3.5633372247461843`*^9}, {
   3.5633935808613186`*^9, 3.5633935973413415`*^9}, 3.5967435587392483`*^9, 
   3.596743597729303*^9, 3.5967436893694315`*^9, {3.5967437730195484`*^9, 
   3.5967437738095493`*^9}, 3.6131089644797215`*^9, {3.613152201071618*^9, 
   3.6131522596667023`*^9}, {3.613152292416749*^9, 3.613152307726771*^9}, 
   3.613155743798726*^9, {3.664751046776525*^9, 3.6647510468025265`*^9}, {
   3.664751084657692*^9, 3.664751084667692*^9}, 3.6647512623598557`*^9, 
   3.6647513056483316`*^9, {3.664825446697028*^9, 3.664825446706029*^9}, 
   3.664825483292121*^9, 3.664825553989165*^9, 3.6648256070582*^9, 
   3.6648257862494497`*^9, 3.665294608022494*^9, {3.6773517141992893`*^9, 
   3.6773517179588957`*^9}, 3.677351905889226*^9, {3.677351936106479*^9, 
   3.6773519385400834`*^9}, {3.6773519978209867`*^9, 3.6773520151358175`*^9}, 
   3.6773520721359167`*^9, {3.677366129807776*^9, 3.6773661340050163`*^9}, {
   3.677366214899643*^9, 3.6773662190028777`*^9}, 3.679762550617195*^9, {
   3.6916271288837695`*^9, 3.691627133529035*^9}, {3.6916273708356085`*^9, 
   3.691627373000732*^9}, {3.691627486011196*^9, 3.691627489384389*^9}, {
   3.691627848666939*^9, 3.691627851894123*^9}, 3.691628002843757*^9, {
   3.691630826429785*^9, 3.691630828510788*^9}, 3.6916308637758384`*^9, 
   3.6916996346581783`*^9, {3.704986165232787*^9, 3.7049861791755843`*^9}, {
   3.7049869060941615`*^9, 3.7049869157047114`*^9}, {3.704990164046506*^9, 
   3.704990178160313*^9}, {3.704990567619589*^9, 3.7049906302591715`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "-", "n"}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, {
   3.6142960499257836`*^9, 3.614296050312806*^9}, {3.6647510219261036`*^9, 
   3.6647510219381046`*^9}, 3.6648123069000716`*^9, 3.6648254215125875`*^9, {
   3.6652650235033016`*^9, 3.6652650236433015`*^9}, {3.6652650906403975`*^9, 
   3.6652650970704064`*^9}, {3.6653361052295103`*^9, 3.665336113919523*^9}, {
   3.665336177809614*^9, 3.6653362044226522`*^9}, {3.6653363566988735`*^9, 
   3.6653363568688736`*^9}, 3.67735157223904*^9, 3.6773517371469297`*^9, 
   3.6773518190626736`*^9, 3.677365944881199*^9, 3.6916271602315626`*^9, 
   3.6916273831573133`*^9, 3.691627506207351*^9, 3.691627687683731*^9, {
   3.704985801814*^9, 3.704985801814*^9}, {3.7049893976426697`*^9, 
   3.7049894281274137`*^9}, {3.7049901371879697`*^9, 3.7049901524128404`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "-", "n"}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6653362090346584`*^9, 3.6653362090346584`*^9}, {3.704985806443265*^9, 
   3.704985806443265*^9}, {3.704989434018751*^9, 3.704989434018751*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"a", " ", "b", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "1"}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "n"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.664751021967106*^9, 3.664751022005108*^9}, 3.6647513634866395`*^9, {
   3.6648254215285883`*^9, 3.664825421542589*^9}, {3.664825847769968*^9, 
   3.6648258490480413`*^9}, {3.6652653285067377`*^9, 
   3.6652653746248035`*^9}, {3.6652654190048666`*^9, 3.665265424574875*^9}, 
   3.6653361239665375`*^9, {3.6653361570825844`*^9, 3.6653361651975965`*^9}, {
   3.677351738410532*^9, 3.6773517405165358`*^9}, {3.6773518196554747`*^9, 
   3.6773518201858754`*^9}, {3.677351945762896*^9, 3.677351964101728*^9}, 
   3.6773659456802444`*^9, {3.6773660745516157`*^9, 3.677366084194167*^9}, {
   3.6797624009139786`*^9, 3.6797624021939807`*^9}, {3.691627165660873*^9, 
   3.69162716840903*^9}, {3.6916273839323573`*^9, 3.6916273849824176`*^9}, {
   3.691627507148405*^9, 3.691627508753497*^9}, 3.691627687852741*^9, {
   3.6916277619829807`*^9, 3.691627773497639*^9}, 3.6916307558396845`*^9, {
   3.7049851792373915`*^9, 3.704985184478691*^9}, {3.7049852172605658`*^9, 
   3.704985259938007*^9}, {3.7049856286970987`*^9, 3.704985635630495*^9}, 
   3.704985687152442*^9, {3.7049857245375805`*^9, 3.704985761089671*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.69162738537744*^9, 3.6916308849698687`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "-", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, {3.6131518294460845`*^9, 
   3.6131518783611546`*^9}, 3.6131519172612104`*^9, 3.6131557968588023`*^9, {
   3.6647510474125614`*^9, 3.664751047439563*^9}, {3.664751085083716*^9, 
   3.6647510850937166`*^9}, 3.6647512624788623`*^9, 3.6647513057653384`*^9, {
   3.66482544690804*^9, 3.6648254469160404`*^9}, 3.6648254836051393`*^9, 
   3.6648255540921707`*^9, 3.6648256072142096`*^9, 3.6648258785257273`*^9, 
   3.665294612086726*^9, {3.6653362126346636`*^9, 3.6653362134046645`*^9}, {
   3.6773517445101423`*^9, 3.6773517475053477`*^9}, 3.677351910428834*^9, {
   3.6773519466364975`*^9, 3.677351965614931*^9}, {3.6773519997865906`*^9, 
   3.677352018177822*^9}, {3.677352129700018*^9, 3.677352131837222*^9}, {
   3.677366162063621*^9, 3.6773661648347797`*^9}, {3.6773662641434593`*^9, 
   3.6773662677396655`*^9}, 3.679762486021102*^9, {3.6916271692510786`*^9, 
   3.691627173760336*^9}, {3.6916273857554617`*^9, 3.691627387440558*^9}, {
   3.691627509731553*^9, 3.6916275115846586`*^9}, {3.6916278850460196`*^9, 
   3.6916278883392076`*^9}, 3.691628002882759*^9, 3.691630777563715*^9, 
   3.691630867825844*^9, {3.6916309471869583`*^9, 3.691630949336961*^9}, 
   3.6916996347301826`*^9, {3.7049858215301285`*^9, 3.7049858917081423`*^9}, {
   3.7049893386412954`*^9, 3.7049893459947157`*^9}, 3.7049894122275047`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "-", "n"}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.5620939740209045`*^9, 3.562093979420912*^9}, {
   3.5620994225336323`*^9, 3.562099426933638*^9}, 3.5621009016157026`*^9, {
   3.5621010986959786`*^9, 3.5621010988859787`*^9}, {3.5633361462446747`*^9, 
   3.5633361462546744`*^9}, 3.563397025378641*^9, 3.5967445696506634`*^9, 
   3.6131542140370092`*^9, {3.6647510218550997`*^9, 3.6647510218631*^9}, 
   3.66481232768826*^9, 3.664825421461585*^9, {3.665265075814376*^9, 
   3.6652651027804146`*^9}, {3.6653359984773593`*^9, 3.6653360114973774`*^9}, 
   3.677351571771039*^9, 3.6773517228885045`*^9, 3.67735181712827*^9, {
   3.677352081932734*^9, 3.677352081932734*^9}, 3.6773659438171377`*^9, 
   3.691627137543265*^9, 3.6916273766529408`*^9, {3.6916274943276715`*^9, 
   3.6916274948016987`*^9}, 3.6916276873467116`*^9, {3.704987136371333*^9, 
   3.7049871381384335`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "-", "n"}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.5620994321736455`*^9, 3.5620994321736455`*^9}, {
   3.665336032533407*^9, 3.665336032533407*^9}, {3.677352084834339*^9, 
   3.677352084834339*^9}, {3.691627495544741*^9, 3.691627495544741*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", " ", "b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"m", "-", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Sec", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "-", "1"}]]}], 
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{"m", "-", "n"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.498011270904375*^9, {3.499131610012951*^9, 3.499131627932976*^9}, {
   3.515389528558507*^9, 3.5153895318969135`*^9}, {3.563336146264674*^9, 
   3.563336146304674*^9}, {3.5633374127864475`*^9, 3.563337415646452*^9}, {
   3.59674448863055*^9, 3.5967445378506193`*^9}, {3.6647510218711004`*^9, 
   3.6647510219081025`*^9}, 3.6647513615265274`*^9, {3.664825421477586*^9, 
   3.6648254214905863`*^9}, {3.6648258019783487`*^9, 
   3.6648258038434553`*^9}, {3.6652652098195677`*^9, 3.6652652986876955`*^9}, 
   3.665336021630392*^9, {3.6653360680874577`*^9, 3.665336070727461*^9}, {
   3.6773517238245063`*^9, 3.67735172572771*^9}, {3.6773518178146715`*^9, 
   3.6773518183918724`*^9}, 3.6773519431420918`*^9, {3.6773520889059467`*^9, 
   3.677352090029148*^9}, 3.6773659443361673`*^9, {3.6773660574846396`*^9, 
   3.6773660680962467`*^9}, {3.6916271492849364`*^9, 
   3.6916271515610666`*^9}, {3.6916273771089673`*^9, 3.691627378239032*^9}, {
   3.691627496148776*^9, 3.691627498296899*^9}, 3.6916276875157213`*^9, {
   3.6916277416028147`*^9, 3.6916277559596357`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.691627378698058*^9, 3.6916308925718794`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "a"}], "*", "b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "-", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "-", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, {3.4980113358844657`*^9, 
   3.4980113391144705`*^9}, {3.499131610022951*^9, 3.499131627942976*^9}, {
   3.5153904804925776`*^9, 3.5153904855937862`*^9}, 3.560970361489283*^9, 
   3.5609706398250017`*^9, {3.5633361463146744`*^9, 3.5633361463546743`*^9}, {
   3.5633374187264557`*^9, 3.563337424206464*^9}, {3.563393580871319*^9, 
   3.5633935973513412`*^9}, {3.5967445861706867`*^9, 3.596744592610696*^9}, 
   3.5967446502907763`*^9, 3.6131089766897388`*^9, {3.6131524250019393`*^9, 
   3.613152463681995*^9}, 3.61315577392377*^9, {3.664751047093543*^9, 
   3.6647510471205444`*^9}, {3.664751084869704*^9, 3.6647510848807044`*^9}, 
   3.664751262418859*^9, 3.664751305707335*^9, {3.664825446803034*^9, 
   3.6648254468110347`*^9}, 3.66482548344913*^9, 3.6648255540411677`*^9, 
   3.6648256071362047`*^9, 3.664825833777168*^9, 3.665294610070611*^9, {
   3.6773517297213163`*^9, 3.677351732139321*^9}, 3.677351906918828*^9, 
   3.6773519440780935`*^9, {3.6773519988349886`*^9, 3.6773520169766207`*^9}, {
   3.6773520947247567`*^9, 3.6773521040223727`*^9}, {3.6773661474007826`*^9, 
   3.6773661506099663`*^9}, {3.6773662461884327`*^9, 3.677366249443619*^9}, 
   3.6797625178411465`*^9, {3.6916271523631124`*^9, 3.6916271558753133`*^9}, {
   3.6916273791070814`*^9, 3.6916273808161793`*^9}, {3.6916274991479473`*^9, 
   3.691627502041113*^9}, {3.691627869073106*^9, 3.6916278729523277`*^9}, 
   3.691628002861758*^9, 3.6916308667658424`*^9, {3.691630923028923*^9, 
   3.6916309248389254`*^9}, 3.6916996346951804`*^9, {3.7049862004748025`*^9, 
   3.704986229739476*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5621013489563293`*^9, 3.562101349196329*^9}, {3.5621059241310496`*^9, 
   3.5621059258782525`*^9}, {3.563336146524675*^9, 3.5633361465346746`*^9}, 
   3.5633970273486443`*^9, 3.5640713691975164`*^9, {3.5640714682121797`*^9, 
   3.5640714766686635`*^9}, 3.5967447414409037`*^9, 3.6131542144470096`*^9, {
   3.6142960499257836`*^9, 3.614296050312806*^9}, {3.6647510219261036`*^9, 
   3.6647510219381046`*^9}, 3.6648123069000716`*^9, 3.6648254215125875`*^9, {
   3.6652650235033016`*^9, 3.6652650236433015`*^9}, {3.6652650906403975`*^9, 
   3.6652650970704064`*^9}, {3.6653361052295103`*^9, 3.665336113919523*^9}, {
   3.665336177809614*^9, 3.6653362044226522`*^9}, {3.6653363566988735`*^9, 
   3.6653363568688736`*^9}, 3.67735157223904*^9, 3.6773517371469297`*^9, 
   3.6773518190626736`*^9, 3.677365944881199*^9, 3.6916271602315626`*^9, 
   3.6916273831573133`*^9, 3.691627506207351*^9, 3.691627687683731*^9, {
   3.7049871410285993`*^9, 3.7049871412056093`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.6653362090346584`*^9, 3.6653362090346584`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"a", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "2"}], 
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.563336146544675*^9, 3.563336146584675*^9}, 
   3.563336555895248*^9, {3.5967447438109074`*^9, 3.596744787820969*^9}, {
   3.664751021967106*^9, 3.664751022005108*^9}, 3.6647513634866395`*^9, {
   3.6648254215285883`*^9, 3.664825421542589*^9}, {3.664825847769968*^9, 
   3.6648258490480413`*^9}, {3.6652653285067377`*^9, 
   3.6652653746248035`*^9}, {3.6652654190048666`*^9, 3.665265424574875*^9}, 
   3.6653361239665375`*^9, {3.6653361570825844`*^9, 3.6653361651975965`*^9}, {
   3.677351738410532*^9, 3.6773517405165358`*^9}, {3.6773518196554747`*^9, 
   3.6773518201858754`*^9}, {3.677351945762896*^9, 3.677351964101728*^9}, 
   3.6773659456802444`*^9, {3.6773660745516157`*^9, 3.677366084194167*^9}, {
   3.6797624009139786`*^9, 3.6797624021939807`*^9}, {3.691627165660873*^9, 
   3.69162716840903*^9}, {3.6916273839323573`*^9, 3.6916273849824176`*^9}, {
   3.691627507148405*^9, 3.691627508753497*^9}, 3.691627687852741*^9, {
   3.6916277619829807`*^9, 3.691627773497639*^9}, 3.6916307558396845`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.69162738537744*^9, 3.6916308849698687`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sec", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegersQ", "[", 
     RowBox[{
      RowBox[{"2", "*", "m"}], ",", 
      RowBox[{"2", "*", "n"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, {
   3.4991316100729513`*^9, 3.499131627992976*^9}, {3.515791318650915*^9, 
   3.5157913193061166`*^9}, 3.5609703663985643`*^9, 3.560970650082554*^9, {
   3.563336146594675*^9, 3.563336146624675*^9}, 3.5633365627552576`*^9, {
   3.5633935808913183`*^9, 3.5633935973613415`*^9}, {3.596744865721078*^9, 
   3.5967449260911627`*^9}, 3.61310898435975*^9, {3.6131518294460845`*^9, 
   3.6131518783611546`*^9}, 3.6131519172612104`*^9, 3.6131557968588023`*^9, {
   3.6647510474125614`*^9, 3.664751047439563*^9}, {3.664751085083716*^9, 
   3.6647510850937166`*^9}, 3.6647512624788623`*^9, 3.6647513057653384`*^9, {
   3.66482544690804*^9, 3.6648254469160404`*^9}, 3.6648254836051393`*^9, 
   3.6648255540921707`*^9, 3.6648256072142096`*^9, 3.6648258785257273`*^9, 
   3.665294612086726*^9, {3.6653362126346636`*^9, 3.6653362134046645`*^9}, {
   3.6773517445101423`*^9, 3.6773517475053477`*^9}, 3.677351910428834*^9, {
   3.6773519466364975`*^9, 3.677351965614931*^9}, {3.6773519997865906`*^9, 
   3.677352018177822*^9}, {3.677352129700018*^9, 3.677352131837222*^9}, {
   3.677366162063621*^9, 3.6773661648347797`*^9}, {3.6773662641434593`*^9, 
   3.6773662677396655`*^9}, 3.679762486021102*^9, {3.6916271692510786`*^9, 
   3.691627173760336*^9}, {3.6916273857554617`*^9, 3.691627387440558*^9}, {
   3.691627509731553*^9, 3.6916275115846586`*^9}, {3.6916278850460196`*^9, 
   3.6916278883392076`*^9}, 3.691628002882759*^9, 3.691630777563715*^9, 
   3.691630867825844*^9, {3.6916309471869583`*^9, 3.691630949336961*^9}, 
   3.6916996347301826`*^9, {3.7049859066469965`*^9, 3.704985914962472*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["6.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
   3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
   3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
   3.561757856045182*^9, 3.562030414929576*^9, 3.562087519391868*^9, {
   3.562093244219883*^9, 3.562093254789898*^9}, {3.5620932902799473`*^9, 
   3.562093293699952*^9}, {3.562100852615634*^9, 3.562100864475651*^9}, {
   3.5621010852459598`*^9, 3.5621010854559603`*^9}, {3.563336146084674*^9, 
   3.5633361461046743`*^9}, 3.5633970241086397`*^9, {3.5639109075287514`*^9, 
   3.563910907728751*^9}, {3.5640714617578106`*^9, 3.564071482976024*^9}, 
   3.596743393469017*^9, 3.6131542131370077`*^9, {3.6142960435284176`*^9, 
   3.6142960439834433`*^9}, {3.6647510217520933`*^9, 3.6647510217630944`*^9}, 
   3.664812305722004*^9, 3.6648254213915806`*^9, {3.665265021843299*^9, 
   3.6652650221932993`*^9}, 3.665265061682356*^9, {3.665335847482144*^9, 
   3.6653358728581796`*^9}, {3.6653363552288713`*^9, 3.6653363554688716`*^9}, 
   3.6773515708194375`*^9, 3.677351704917273*^9, 3.677351814803866*^9, 
   3.6773659418330245`*^9, 3.6916271246555276`*^9, 3.691627365357295*^9, 
   3.6916274803998747`*^9, 3.691627686812681*^9, {3.704945587731611*^9, 
   3.7049455879500113`*^9}, {3.7049456197146673`*^9, 
   3.7049456197146673`*^9}, {3.7049871432067237`*^9, 
   3.7049871434727387`*^9}, {3.7049927387197685`*^9, 3.7049927387197685`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"m", "-", 
         FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], 
       " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "-", 
         FractionBox["1", "2"]}], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, 3.563396812908344*^9, 3.59674766011499*^9, {
   3.613099721338788*^9, 3.6130997216187887`*^9}, 3.6131011113908253`*^9, 
   3.613154225057025*^9, {3.614296005243228*^9, 3.6142960064432964`*^9}, {
   3.6649925358281345`*^9, 3.664992535838135*^9}, 3.664992668576727*^9, {
   3.6650036251084847`*^9, 3.6650036284376755`*^9}, 3.6650036795415983`*^9, 
   3.665003757264044*^9, {3.665003881107127*^9, 3.665003884233306*^9}, {
   3.665004502473667*^9, 3.665004515121391*^9}, {3.665004688429303*^9, 
   3.6650046893543563`*^9}, 3.6650768527091565`*^9, {3.6650787927691216`*^9, 
   3.6650788084940214`*^9}, {3.665078902562402*^9, 3.6650789180022845`*^9}, {
   3.6650792020685325`*^9, 3.6650792020685325`*^9}, {3.6654375532205715`*^9, 
   3.665437561520584*^9}, 3.6654378536760025`*^9, {3.6654379804831843`*^9, 
   3.6654379812131853`*^9}, {3.6654385949470654`*^9, 3.665438626861111*^9}, 
   3.6749473237065277`*^9, 3.6749480709192657`*^9, 3.6749482831904073`*^9, {
   3.6772150190244093`*^9, 3.6772150190244093`*^9}, 3.677215181154683*^9, {
   3.677215816199005*^9, 3.677215816754037*^9}, {3.6772161743054876`*^9, 
   3.677216175070532*^9}, 3.6773475138295116`*^9, {3.6773482651424313`*^9, 
   3.6773482653608313`*^9}, {3.6773485056792536`*^9, 3.677348507457657*^9}, {
   3.677348584490592*^9, 3.677348593850609*^9}, {3.6773515378721795`*^9, 
   3.67735153812178*^9}, 3.6773515727694407`*^9, {3.6773658749601994`*^9, 
   3.677365876870309*^9}, {3.6773747960014544`*^9, 3.677374796349474*^9}, {
   3.677376769072307*^9, 3.6773767693243217`*^9}, 3.6916271955115805`*^9, 
   3.6916274420286803`*^9, {3.6916275645046854`*^9, 3.6916275648727064`*^9}, 
   3.691627688863798*^9, {3.6917051113364263`*^9, 3.6917051208159685`*^9}, {
   3.6917085315470514`*^9, 3.691708532894128*^9}, {3.704945603940039*^9, 
   3.70494564431791*^9}, {3.7049510608688774`*^9, 3.7049510736941004`*^9}, {
   3.7049927450781326`*^9, 3.7049927450781326`*^9}, {3.7049932084446354`*^9, 
   3.7049932084446354`*^9}, {3.704994246926033*^9, 3.704994246926033*^9}, {
   3.7049992606208*^9, 3.7049992696943192`*^9}, {3.7050123168121696`*^9, 
   3.7050123241205873`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}, {3.674948441881484*^9, 3.6749484578483973`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], ")"}]}], 
   "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.4956612341427097`*^9, 3.4956612366427135`*^9}, {
   3.495661466643035*^9, 3.4956615179331074`*^9}, {3.495662078776306*^9, 
   3.4956620926663256`*^9}, {3.495662256946555*^9, 3.495662259396559*^9}, {
   3.4956625025768995`*^9, 3.4956625261869326`*^9}, {3.4956632462279406`*^9, 
   3.4956633094980288`*^9}, 3.495663998918994*^9, {3.4956644892796803`*^9, 
   3.4956645035697007`*^9}, 3.495664644999899*^9, {3.4956649976003923`*^9, 
   3.4956650260304317`*^9}, 3.495665112520553*^9, 3.495665461771042*^9, {
   3.495666875785483*^9, 3.4956668919003115`*^9}, {3.5325377187562304`*^9, 
   3.5325377350741634`*^9}, {3.532537836964991*^9, 3.532537836964991*^9}, {
   3.5418772447423954`*^9, 3.5418772447423954`*^9}, {3.5418772765424395`*^9, 
   3.5418772800524445`*^9}, {3.5418790150948734`*^9, 
   3.5418790499849224`*^9}, {3.541880174556497*^9, 3.5418801814265065`*^9}, {
   3.541880943257573*^9, 3.541880943257573*^9}, {3.541886992360258*^9, 
   3.541887025940305*^9}, {3.567490246959696*^9, 3.5674902479096966`*^9}, {
   3.664475805409972*^9, 3.664475805409972*^9}, {3.664476461078474*^9, 
   3.664476464231654*^9}, {3.6644767068315306`*^9, 3.6644767095056834`*^9}, {
   3.6654375938596306`*^9, 3.6654375956196327`*^9}, {3.6654386982182136`*^9, 
   3.6654386992082148`*^9}, {3.6654388641494513`*^9, 
   3.6654388641494513`*^9}, {3.674948071724312*^9, 3.6749480726393642`*^9}, {
   3.6772146933557825`*^9, 3.6772146933557825`*^9}, {3.6772158766404624`*^9, 
   3.6772158766414623`*^9}, {3.6772159488235908`*^9, 
   3.6772159488235908`*^9}, {3.6772163851415467`*^9, 
   3.6772163851415467`*^9}, {3.677260367596634*^9, 3.677260367596634*^9}, {
   3.6773476276785116`*^9, 3.6773476276785116`*^9}, {3.67734771224626*^9, 
   3.67734771224626*^9}, {3.67734775759554*^9, 3.67734775759554*^9}, {
   3.677348693659584*^9, 3.677348693659584*^9}, {3.6773487471988783`*^9, 
   3.6773487471988783`*^9}, {3.6916274424337034`*^9, 
   3.6916274428887296`*^9}, {3.6916275656247497`*^9, 
   3.6916275663067884`*^9}, {3.6917050519160275`*^9, 
   3.6917050519160275`*^9}, {3.691707729335167*^9, 3.6917077341644435`*^9}, {
   3.704947421114831*^9, 3.704947421114831*^9}, {3.7049480657235675`*^9, 
   3.7049480657235675`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"m", "-", 
     FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{"n", "-", 
     FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.4978083089530945`*^9, 
   3.4978083143531017`*^9}, {3.4978084473132877`*^9, 
   3.4978084750933266`*^9}, {3.497808510103376*^9, 3.4978085176833863`*^9}, {
   3.4978090871541834`*^9, 3.4978091125642195`*^9}, {3.4978091437242627`*^9, 
   3.497809166464295*^9}, 3.497809198114339*^9, {3.4978093447445445`*^9, 
   3.4978093512745533`*^9}, {3.497809459704705*^9, 3.4978094655147133`*^9}, 
   3.4978096024249053`*^9, {3.4978096874850245`*^9, 3.49780970627505*^9}, {
   3.49800845286043*^9, 3.498008453750431*^9}, {3.567094006345663*^9, 
   3.567094006345663*^9}, {3.665000002525285*^9, 3.6650000038853626`*^9}, {
   3.6650000784006248`*^9, 3.6650000785456333`*^9}, {3.6650021829920006`*^9, 
   3.6650021829920006`*^9}, {3.665003918951292*^9, 3.665003918951292*^9}, {
   3.665004590512703*^9, 3.665004590512703*^9}, {3.6650789318130746`*^9, 
   3.6650789318130746`*^9}, {3.665079204982699*^9, 3.665079204982699*^9}, {
   3.6654376971377783`*^9, 3.6654376971377783`*^9}, {3.6654386328811197`*^9, 
   3.6654386328811197`*^9}, {3.6772147012622347`*^9, 
   3.6772147012622347`*^9}, {3.6773486256122646`*^9, 
   3.6773486256122646`*^9}, {3.6916275682569003`*^9, 
   3.6916275682569003`*^9}, {3.691705126311283*^9, 3.691705126311283*^9}, {
   3.7049456312742877`*^9, 3.7049456343474927`*^9}, {3.704951099310345*^9, 
   3.704951099310345*^9}, {3.7049927472352557`*^9, 3.7049927472352557`*^9}, {
   3.704993210599759*^9, 3.704993210599759*^9}, {3.7049942517913113`*^9, 
   3.7049942517913113`*^9}, {3.7049992754696493`*^9, 
   3.7049992754696493`*^9}, {3.705012281629157*^9, 3.705012329791912*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5633886271303563`*^9, 3.5633887007624855`*^9}, {3.5633891677251387`*^9, 
   3.5633891925451736`*^9}, 3.5967476646849966`*^9, 3.596747710585061*^9, {
   3.5967479530654*^9, 3.596747968625422*^9}, {3.596748193595737*^9, 
   3.596748199005745*^9}, {3.6649925358951387`*^9, 3.6649925359681425`*^9}, {
   3.6649926685957284`*^9, 3.6649926685997286`*^9}, {3.6650037523147607`*^9, 
   3.66500382170973*^9}, {3.6650040507058277`*^9, 3.6650040789904456`*^9}, 
   3.665004537506671*^9, {3.665004607407669*^9, 3.665004669744235*^9}, {
   3.6650769203670263`*^9, 3.665076978289339*^9}, {3.665079279023934*^9, 
   3.6650793065055056`*^9}, {3.665079337458276*^9, 3.6650793477958674`*^9}, {
   3.665437632239685*^9, 3.6654376732187433`*^9}, 3.6654378542560034`*^9, {
   3.665437987270194*^9, 3.6654379909201994`*^9}, {3.665438642273133*^9, 
   3.665438691288204*^9}, {3.665438764634309*^9, 3.665438777281327*^9}, {
   3.6654388199913883`*^9, 3.6654388285313997`*^9}, 3.6654388843974805`*^9, {
   3.6749473237155285`*^9, 3.6749473237195287`*^9}, {3.674948073449411*^9, 
   3.6749480756985397`*^9}, {3.6749482831994076`*^9, 
   3.6749482832034082`*^9}, {3.677214544671278*^9, 3.677214554859861*^9}, {
   3.677214710045737*^9, 3.6772147659909368`*^9}, {3.6772148757472143`*^9, 
   3.677214886485829*^9}, {3.6772149878216248`*^9, 3.6772149960380945`*^9}, {
   3.6772158884271364`*^9, 3.677215918304845*^9}, 3.677215960155239*^9, {
   3.677216007828966*^9, 3.6772160361115837`*^9}, 3.6772161852791157`*^9, {
   3.6772162777554045`*^9, 3.677216294589368*^9}, {3.677216404411649*^9, 
   3.6772164132841563`*^9}, 3.677260348939001*^9, {3.6772604221967297`*^9, 
   3.6772604254103355`*^9}, {3.6772725237538395`*^9, 
   3.6772725359685383`*^9}, {3.6772775681923647`*^9, 
   3.6772775688514023`*^9}, {3.677347541971961*^9, 3.6773475665420046`*^9}, {
   3.6773476463517447`*^9, 3.6773476692213845`*^9}, {3.6773477198278737`*^9, 
   3.677347732183095*^9}, 3.677347771354764*^9, {3.6773478854221644`*^9, 
   3.6773479185410223`*^9}, 3.677347948602275*^9, {3.677348640494691*^9, 
   3.677348672646347*^9}, {3.677348766418112*^9, 3.6773488210962076`*^9}, {
   3.6773496618596845`*^9, 3.677349681624919*^9}, 3.6773521680916853`*^9, {
   3.677374658395583*^9, 3.677374739302211*^9}, {3.6916271961126146`*^9, 
   3.6916271965926423`*^9}, {3.691627443325754*^9, 3.691627445061854*^9}, {
   3.6916275689849415`*^9, 3.6916275711020627`*^9}, 3.6916276890328083`*^9, {
   3.6917050613385663`*^9, 3.691705070737104*^9}, {3.6917076878757963`*^9, 
   3.6917076896878996`*^9}, 3.691707741260849*^9, {3.6917081548535056`*^9, 
   3.691708155090519*^9}, {3.704943133914592*^9, 3.7049431524182243`*^9}, {
   3.704945526134702*^9, 3.704945539100325*^9}, {3.704947333810077*^9, 
   3.7049473624985275`*^9}, {3.7049480151422787`*^9, 3.704948034285512*^9}, {
   3.7049490116223335`*^9, 3.70494902075035*^9}, {3.7049931567786803`*^9, 
   3.7049931640730977`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.665004105071937*^9, 3.665004109207174*^9}, 
   3.691627445890901*^9, 3.691630886781872*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"m", "-", 
      RowBox[{"1", "/", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "-", 
      RowBox[{"1", "/", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.563389015634926*^9, 3.5633890160749264`*^9}, 
   3.563389060894989*^9, 3.563389107955055*^9, {3.563389216425207*^9, 
   3.5633892231252165`*^9}, 3.563393581121319*^9, 3.563393658761428*^9, {
   3.563393884371744*^9, 3.5633939298743076`*^9}, 3.5633939787243757`*^9, {
   3.596762994575632*^9, 3.5967630098956537`*^9}, 3.596763042245699*^9, {
   3.6649925594244843`*^9, 3.6649925594844875`*^9}, {3.6649926412751656`*^9, 
   3.664992641281166*^9}, 3.664992759211911*^9, 3.6649927905657043`*^9, 
   3.6650038679953775`*^9, {3.665003926206707*^9, 3.6650039471619053`*^9}, {
   3.6650040002129393`*^9, 3.665004032061761*^9}, 3.6650041200357933`*^9, 
   3.6650044278704004`*^9, {3.665004709119487*^9, 3.6650047826566925`*^9}, 
   3.6650048366767826`*^9, {3.6650770203497453`*^9, 3.6650770460162134`*^9}, {
   3.6650793678480144`*^9, 3.6650794307376113`*^9}, {3.6652074280307508`*^9, 
   3.665207463916802*^9}, {3.665437703437787*^9, 3.6654377272188215`*^9}, 
   3.6654378151249475`*^9, {3.665437904683076*^9, 3.6654379093530827`*^9}, {
   3.6654379938102036`*^9, 3.665438014272233*^9}, {3.6654389180935287`*^9, 
   3.665438954668581*^9}, 3.66543899638264*^9, {3.665439061060733*^9, 
   3.665439085859769*^9}, {3.665439199623932*^9, 3.6654392072049427`*^9}, 
   3.674947347458886*^9, 3.674947379711731*^9, 3.6749475756259365`*^9, {
   3.6749478961832714`*^9, 3.6749479213967137`*^9}, 3.6749479596109*^9, {
   3.67494807990578*^9, 3.674948081232856*^9}, 3.674948350946283*^9, 
   3.6749483827221003`*^9, 3.674948441917486*^9, 3.6749488753302755`*^9, 
   3.677215028981979*^9, {3.677215070724366*^9, 3.677215098007927*^9}, {
   3.67721598989194*^9, 3.677215990312964*^9}, 3.677216084849371*^9, {
   3.6772164520583744`*^9, 3.6772164978749948`*^9}, 3.6772602913124995`*^9, {
   3.6772604369231553`*^9, 3.677260493083254*^9}, {3.677271980237752*^9, 
   3.677271988124203*^9}, 3.677272942433787*^9, {3.677273219162615*^9, 
   3.677273221135728*^9}, 3.677273748738905*^9, {3.677347994481956*^9, 
   3.677347997321161*^9}, {3.6773480372572308`*^9, 3.677348102106545*^9}, {
   3.6773488507986603`*^9, 3.6773489264431925`*^9}, {3.6773492849162226`*^9, 
   3.677349287552627*^9}, {3.677349828280777*^9, 3.677349836954392*^9}, {
   3.677366544149475*^9, 3.6773665483997183`*^9}, {3.6773719039930406`*^9, 
   3.677371949248629*^9}, {3.677372024845953*^9, 3.6773720292872066`*^9}, {
   3.677372731675381*^9, 3.677372734157523*^9}, {3.6773727652713027`*^9, 
   3.677372772279704*^9}, 3.6773743047873583`*^9, {3.6773747494717927`*^9, 
   3.677374776335329*^9}, {3.6916271970176663`*^9, 3.6916271989917793`*^9}, {
   3.6916274462589226`*^9, 3.691627448648059*^9}, {3.691627572986171*^9, 
   3.69162757664738*^9}, {3.691627942036279*^9, 3.6916279775723114`*^9}, 
   3.69163100508004*^9, 3.6916996267097235`*^9, {3.691705129459463*^9, 
   3.6917051320616117`*^9}, {3.6917051747270517`*^9, 
   3.6917051840235834`*^9}, {3.6917077028166504`*^9, 3.691707708729989*^9}, {
   3.6917077606089563`*^9, 3.6917077735316954`*^9}, 3.691708178487857*^9, {
   3.704943089547114*^9, 3.7049431069099445`*^9}, {3.7049437474367805`*^9, 
   3.704943751338787*^9}, {3.704945499162255*^9, 3.704945516259885*^9}, 
   3.7049455479299407`*^9, {3.704945738272276*^9, 3.704945754629105*^9}, {
   3.704947602389951*^9, 3.7049476146827726`*^9}, {3.704947792601486*^9, 
   3.7049478167211285`*^9}, {3.7049480909840117`*^9, 3.7049481077852416`*^9}, 
   3.7049490391583824`*^9, {3.704949839052331*^9, 3.7049498744683933`*^9}, {
   3.7049932019232626`*^9, 3.704993231762969*^9}, 3.704994254176448*^9, {
   3.7049992809569635`*^9, 3.7049992875863423`*^9}, {3.70499985453677*^9, 
   3.704999864556343*^9}, {3.7050012667705455`*^9, 3.705001285111594*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "<", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, 3.563396812908344*^9, 3.59674766011499*^9, {
   3.613099721338788*^9, 3.6130997216187887`*^9}, 3.6131011113908253`*^9, 
   3.613154225057025*^9, {3.614296005243228*^9, 3.6142960064432964`*^9}, {
   3.6649925358281345`*^9, 3.664992535838135*^9}, 3.664992668576727*^9, {
   3.6650036251084847`*^9, 3.6650036284376755`*^9}, 3.6650036795415983`*^9, 
   3.665003757264044*^9, {3.665003881107127*^9, 3.665003884233306*^9}, {
   3.665004502473667*^9, 3.665004515121391*^9}, {3.665004688429303*^9, 
   3.6650046893543563`*^9}, 3.6650768527091565`*^9, {3.6650787927691216`*^9, 
   3.6650788084940214`*^9}, {3.665078902562402*^9, 3.6650789180022845`*^9}, {
   3.6650792020685325`*^9, 3.6650792020685325`*^9}, {3.6654375532205715`*^9, 
   3.665437561520584*^9}, 3.6654378536760025`*^9, {3.6654379804831843`*^9, 
   3.6654379812131853`*^9}, {3.6654385949470654`*^9, 3.665438626861111*^9}, 
   3.6749473237065277`*^9, 3.6749480709192657`*^9, 3.6749482831904073`*^9, {
   3.6772150190244093`*^9, 3.6772150190244093`*^9}, 3.677215181154683*^9, {
   3.677215816199005*^9, 3.677215816754037*^9}, {3.6772161743054876`*^9, 
   3.677216175070532*^9}, 3.6773475138295116`*^9, {3.6773482651424313`*^9, 
   3.6773482653608313`*^9}, {3.6773485056792536`*^9, 3.677348507457657*^9}, {
   3.677348584490592*^9, 3.677348593850609*^9}, {3.6773515378721795`*^9, 
   3.67735153812178*^9}, 3.6773515727694407`*^9, {3.6773658749601994`*^9, 
   3.677365876870309*^9}, {3.6773747960014544`*^9, 3.677374796349474*^9}, {
   3.677376769072307*^9, 3.6773767693243217`*^9}, 3.6916271955115805`*^9, 
   3.6916274420286803`*^9, {3.6916275645046854`*^9, 3.6916275648727064`*^9}, 
   3.691627688863798*^9, {3.6917051113364263`*^9, 3.6917051208159685`*^9}, {
   3.6917085315470514`*^9, 3.691708532894128*^9}, {3.704945603940039*^9, 
   3.70494564431791*^9}, {3.7049510833505173`*^9, 3.7049510846765194`*^9}, {
   3.704991471039262*^9, 3.704991471039262*^9}, {3.704992740232855*^9, 
   3.704992740232855*^9}, {3.704993689437147*^9, 3.704993689911174*^9}, {
   3.7049942349003453`*^9, 3.7049942349003453`*^9}, {3.7049993781745243`*^9, 
   3.704999378382536*^9}, {3.705000480549576*^9, 3.705000480549576*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}, {3.674948441881484*^9, 3.6749484578483973`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"n", "+", "1"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"n", "+", "1"}]]}], ")"}]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.4956612341427097`*^9, 3.4956612366427135`*^9}, {
   3.495661466643035*^9, 3.4956615179331074`*^9}, {3.495662078776306*^9, 
   3.4956620926663256`*^9}, {3.495662256946555*^9, 3.495662259396559*^9}, {
   3.4956625025768995`*^9, 3.4956625261869326`*^9}, {3.4956632462279406`*^9, 
   3.4956633094980288`*^9}, 3.495663998918994*^9, {3.4956644892796803`*^9, 
   3.4956645035697007`*^9}, 3.495664644999899*^9, {3.4956649976003923`*^9, 
   3.4956650260304317`*^9}, 3.495665112520553*^9, 3.495665461771042*^9, {
   3.495666875785483*^9, 3.4956668919003115`*^9}, {3.5325377187562304`*^9, 
   3.5325377350741634`*^9}, {3.532537836964991*^9, 3.532537836964991*^9}, {
   3.5418772447423954`*^9, 3.5418772447423954`*^9}, {3.5418772765424395`*^9, 
   3.5418772800524445`*^9}, {3.5418790150948734`*^9, 
   3.5418790499849224`*^9}, {3.541880174556497*^9, 3.5418801814265065`*^9}, {
   3.541880943257573*^9, 3.541880943257573*^9}, {3.541886992360258*^9, 
   3.541887025940305*^9}, {3.567490246959696*^9, 3.5674902479096966`*^9}, {
   3.664475805409972*^9, 3.664475805409972*^9}, {3.664476461078474*^9, 
   3.664476464231654*^9}, {3.6644767068315306`*^9, 3.6644767095056834`*^9}, {
   3.6654375938596306`*^9, 3.6654375956196327`*^9}, {3.6654386982182136`*^9, 
   3.6654386992082148`*^9}, {3.6654388641494513`*^9, 
   3.6654388641494513`*^9}, {3.674948071724312*^9, 3.6749480726393642`*^9}, {
   3.6772146933557825`*^9, 3.6772146933557825`*^9}, {3.6772158766404624`*^9, 
   3.6772158766414623`*^9}, {3.6772159488235908`*^9, 
   3.6772159488235908`*^9}, {3.6772163851415467`*^9, 
   3.6772163851415467`*^9}, {3.677260367596634*^9, 3.677260367596634*^9}, {
   3.6773476276785116`*^9, 3.6773476276785116`*^9}, {3.67734771224626*^9, 
   3.67734771224626*^9}, {3.67734775759554*^9, 3.67734775759554*^9}, {
   3.677348693659584*^9, 3.677348693659584*^9}, {3.6773487471988783`*^9, 
   3.6773487471988783`*^9}, {3.6916274424337034`*^9, 
   3.6916274428887296`*^9}, {3.6916275656247497`*^9, 
   3.6916275663067884`*^9}, {3.6917050519160275`*^9, 
   3.6917050519160275`*^9}, {3.691707729335167*^9, 3.6917077341644435`*^9}, {
   3.704947421114831*^9, 3.704947421114831*^9}, {3.7049480657235675`*^9, 
   3.7049480657235675`*^9}, {3.704948140315299*^9, 3.7049481454633083`*^9}, {
   3.7049495764064674`*^9, 3.7049495781848707`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "<", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.4978083089530945`*^9, 
   3.4978083143531017`*^9}, {3.4978084473132877`*^9, 
   3.4978084750933266`*^9}, {3.497808510103376*^9, 3.4978085176833863`*^9}, {
   3.4978090871541834`*^9, 3.4978091125642195`*^9}, {3.4978091437242627`*^9, 
   3.497809166464295*^9}, 3.497809198114339*^9, {3.4978093447445445`*^9, 
   3.4978093512745533`*^9}, {3.497809459704705*^9, 3.4978094655147133`*^9}, 
   3.4978096024249053`*^9, {3.4978096874850245`*^9, 3.49780970627505*^9}, {
   3.49800845286043*^9, 3.498008453750431*^9}, {3.567094006345663*^9, 
   3.567094006345663*^9}, {3.665000002525285*^9, 3.6650000038853626`*^9}, {
   3.6650000784006248`*^9, 3.6650000785456333`*^9}, {3.6650021829920006`*^9, 
   3.6650021829920006`*^9}, {3.665003918951292*^9, 3.665003918951292*^9}, {
   3.665004590512703*^9, 3.665004590512703*^9}, {3.6650789318130746`*^9, 
   3.6650789318130746`*^9}, {3.665079204982699*^9, 3.665079204982699*^9}, {
   3.6654376971377783`*^9, 3.6654376971377783`*^9}, {3.6654386328811197`*^9, 
   3.6654386328811197`*^9}, {3.6772147012622347`*^9, 
   3.6772147012622347`*^9}, {3.6773486256122646`*^9, 
   3.6773486256122646`*^9}, {3.6916275682569003`*^9, 
   3.6916275682569003`*^9}, {3.691705126311283*^9, 3.691705126311283*^9}, {
   3.7049456312742877`*^9, 3.7049456343474927`*^9}, {3.70495109088533*^9, 
   3.70495109088533*^9}, {3.7049914736934137`*^9, 3.7049914736934137`*^9}, {
   3.7049927429630117`*^9, 3.7049927429630117`*^9}, {3.704993693529381*^9, 
   3.7049936942864237`*^9}, {3.7049942370244665`*^9, 
   3.7049942370244665`*^9}, {3.705000482935713*^9, 3.705000482935713*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["b", "2"]]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"n", "+", "1"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"n", "+", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5633886271303563`*^9, 3.5633887007624855`*^9}, {3.5633891677251387`*^9, 
   3.5633891925451736`*^9}, 3.5967476646849966`*^9, 3.596747710585061*^9, {
   3.5967479530654*^9, 3.596747968625422*^9}, {3.596748193595737*^9, 
   3.596748199005745*^9}, {3.6649925358951387`*^9, 3.6649925359681425`*^9}, {
   3.6649926685957284`*^9, 3.6649926685997286`*^9}, {3.6650037523147607`*^9, 
   3.66500382170973*^9}, {3.6650040507058277`*^9, 3.6650040789904456`*^9}, 
   3.665004537506671*^9, {3.665004607407669*^9, 3.665004669744235*^9}, {
   3.6650769203670263`*^9, 3.665076978289339*^9}, {3.665079279023934*^9, 
   3.6650793065055056`*^9}, {3.665079337458276*^9, 3.6650793477958674`*^9}, {
   3.665437632239685*^9, 3.6654376732187433`*^9}, 3.6654378542560034`*^9, {
   3.665437987270194*^9, 3.6654379909201994`*^9}, {3.665438642273133*^9, 
   3.665438691288204*^9}, {3.665438764634309*^9, 3.665438777281327*^9}, {
   3.6654388199913883`*^9, 3.6654388285313997`*^9}, 3.6654388843974805`*^9, {
   3.6749473237155285`*^9, 3.6749473237195287`*^9}, {3.674948073449411*^9, 
   3.6749480756985397`*^9}, {3.6749482831994076`*^9, 
   3.6749482832034082`*^9}, {3.677214544671278*^9, 3.677214554859861*^9}, {
   3.677214710045737*^9, 3.6772147659909368`*^9}, {3.6772148757472143`*^9, 
   3.677214886485829*^9}, {3.6772149878216248`*^9, 3.6772149960380945`*^9}, {
   3.6772158884271364`*^9, 3.677215918304845*^9}, 3.677215960155239*^9, {
   3.677216007828966*^9, 3.6772160361115837`*^9}, 3.6772161852791157`*^9, {
   3.6772162777554045`*^9, 3.677216294589368*^9}, {3.677216404411649*^9, 
   3.6772164132841563`*^9}, 3.677260348939001*^9, {3.6772604221967297`*^9, 
   3.6772604254103355`*^9}, {3.6772725237538395`*^9, 
   3.6772725359685383`*^9}, {3.6772775681923647`*^9, 
   3.6772775688514023`*^9}, {3.677347541971961*^9, 3.6773475665420046`*^9}, {
   3.6773476463517447`*^9, 3.6773476692213845`*^9}, {3.6773477198278737`*^9, 
   3.677347732183095*^9}, 3.677347771354764*^9, {3.6773478854221644`*^9, 
   3.6773479185410223`*^9}, 3.677347948602275*^9, {3.677348640494691*^9, 
   3.677348672646347*^9}, {3.677348766418112*^9, 3.6773488210962076`*^9}, {
   3.6773496618596845`*^9, 3.677349681624919*^9}, 3.6773521680916853`*^9, {
   3.677374658395583*^9, 3.677374739302211*^9}, {3.6916271961126146`*^9, 
   3.6916271965926423`*^9}, {3.691627443325754*^9, 3.691627445061854*^9}, {
   3.6916275689849415`*^9, 3.6916275711020627`*^9}, 3.6916276890328083`*^9, {
   3.6917050613385663`*^9, 3.691705070737104*^9}, {3.6917076878757963`*^9, 
   3.6917076896878996`*^9}, 3.691707741260849*^9, {3.6917081548535056`*^9, 
   3.691708155090519*^9}, {3.704943133914592*^9, 3.7049431524182243`*^9}, {
   3.704945526134702*^9, 3.704945539100325*^9}, {3.704947333810077*^9, 
   3.7049473624985275`*^9}, {3.7049480151422787`*^9, 3.704948034285512*^9}, {
   3.7049481707539525`*^9, 3.70494817501276*^9}, {3.7049482492551785`*^9, 
   3.704948324903512*^9}, {3.704948359477173*^9, 3.704948360163574*^9}, {
   3.7049485993633986`*^9, 3.7049486226582394`*^9}, {3.704949023901555*^9, 
   3.7049490268811607`*^9}, {3.704949580618475*^9, 3.7049495849396825`*^9}, {
   3.7049508876336727`*^9, 3.7049508901140766`*^9}, 3.7049510495100574`*^9, {
   3.704993597549891*^9, 3.704993638146213*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.665004105071937*^9, 3.665004109207174*^9}, 
   3.691627445890901*^9, 3.691630886781872*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"b", "^", "2"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.563389015634926*^9, 3.5633890160749264`*^9}, 
   3.563389060894989*^9, 3.563389107955055*^9, {3.563389216425207*^9, 
   3.5633892231252165`*^9}, 3.563393581121319*^9, 3.563393658761428*^9, {
   3.563393884371744*^9, 3.5633939298743076`*^9}, 3.5633939787243757`*^9, {
   3.596762994575632*^9, 3.5967630098956537`*^9}, 3.596763042245699*^9, {
   3.6649925594244843`*^9, 3.6649925594844875`*^9}, {3.6649926412751656`*^9, 
   3.664992641281166*^9}, 3.664992759211911*^9, 3.6649927905657043`*^9, 
   3.6650038679953775`*^9, {3.665003926206707*^9, 3.6650039471619053`*^9}, {
   3.6650040002129393`*^9, 3.665004032061761*^9}, 3.6650041200357933`*^9, 
   3.6650044278704004`*^9, {3.665004709119487*^9, 3.6650047826566925`*^9}, 
   3.6650048366767826`*^9, {3.6650770203497453`*^9, 3.6650770460162134`*^9}, {
   3.6650793678480144`*^9, 3.6650794307376113`*^9}, {3.6652074280307508`*^9, 
   3.665207463916802*^9}, {3.665437703437787*^9, 3.6654377272188215`*^9}, 
   3.6654378151249475`*^9, {3.665437904683076*^9, 3.6654379093530827`*^9}, {
   3.6654379938102036`*^9, 3.665438014272233*^9}, {3.6654389180935287`*^9, 
   3.665438954668581*^9}, 3.66543899638264*^9, {3.665439061060733*^9, 
   3.665439085859769*^9}, {3.665439199623932*^9, 3.6654392072049427`*^9}, 
   3.674947347458886*^9, 3.674947379711731*^9, 3.6749475756259365`*^9, {
   3.6749478961832714`*^9, 3.6749479213967137`*^9}, 3.6749479596109*^9, {
   3.67494807990578*^9, 3.674948081232856*^9}, 3.674948350946283*^9, 
   3.6749483827221003`*^9, 3.674948441917486*^9, 3.6749488753302755`*^9, 
   3.677215028981979*^9, {3.677215070724366*^9, 3.677215098007927*^9}, {
   3.67721598989194*^9, 3.677215990312964*^9}, 3.677216084849371*^9, {
   3.6772164520583744`*^9, 3.6772164978749948`*^9}, 3.6772602913124995`*^9, {
   3.6772604369231553`*^9, 3.677260493083254*^9}, {3.677271980237752*^9, 
   3.677271988124203*^9}, 3.677272942433787*^9, {3.677273219162615*^9, 
   3.677273221135728*^9}, 3.677273748738905*^9, {3.677347994481956*^9, 
   3.677347997321161*^9}, {3.6773480372572308`*^9, 3.677348102106545*^9}, {
   3.6773488507986603`*^9, 3.6773489264431925`*^9}, {3.6773492849162226`*^9, 
   3.677349287552627*^9}, {3.677349828280777*^9, 3.677349836954392*^9}, {
   3.677366544149475*^9, 3.6773665483997183`*^9}, {3.6773719039930406`*^9, 
   3.677371949248629*^9}, {3.677372024845953*^9, 3.6773720292872066`*^9}, {
   3.677372731675381*^9, 3.677372734157523*^9}, {3.6773727652713027`*^9, 
   3.677372772279704*^9}, 3.6773743047873583`*^9, {3.6773747494717927`*^9, 
   3.677374776335329*^9}, {3.6916271970176663`*^9, 3.6916271989917793`*^9}, {
   3.6916274462589226`*^9, 3.691627448648059*^9}, {3.691627572986171*^9, 
   3.69162757664738*^9}, {3.691627942036279*^9, 3.6916279775723114`*^9}, 
   3.69163100508004*^9, 3.6916996267097235`*^9, {3.691705129459463*^9, 
   3.6917051320616117`*^9}, {3.6917051747270517`*^9, 
   3.6917051840235834`*^9}, {3.6917077028166504`*^9, 3.691707708729989*^9}, {
   3.6917077606089563`*^9, 3.6917077735316954`*^9}, 3.691708178487857*^9, {
   3.704943089547114*^9, 3.7049431069099445`*^9}, {3.7049437474367805`*^9, 
   3.704943751338787*^9}, {3.704945499162255*^9, 3.704945516259885*^9}, 
   3.7049455479299407`*^9, {3.704945738272276*^9, 3.704945754629105*^9}, {
   3.704947602389951*^9, 3.7049476146827726`*^9}, {3.704947792601486*^9, 
   3.7049478167211285`*^9}, {3.7049480909840117`*^9, 3.7049481077852416`*^9}, 
   3.704948160113734*^9, {3.704948636856264*^9, 3.7049486625671096`*^9}, {
   3.7049495973281045`*^9, 3.7049495993561077`*^9}, {3.7049496488483953`*^9, 
   3.704949659739215*^9}, 3.7049509008624954`*^9, 3.704991478043662*^9, {
   3.704993174044668*^9, 3.7049931780778985`*^9}, {3.7049936495398645`*^9, 
   3.70499369858567*^9}, 3.704994239403603*^9, {3.705000042980549*^9, 
   3.705000047220791*^9}, {3.7050004703239913`*^9, 3.70500048516584*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, 3.563396812908344*^9, 3.59674766011499*^9, {
   3.613099721338788*^9, 3.6130997216187887`*^9}, 3.6131011113908253`*^9, 
   3.613154225057025*^9, {3.614296005243228*^9, 3.6142960064432964`*^9}, {
   3.6649925358281345`*^9, 3.664992535838135*^9}, 3.664992668576727*^9, {
   3.6650036251084847`*^9, 3.6650036284376755`*^9}, 3.6650036795415983`*^9, 
   3.665003757264044*^9, {3.665003881107127*^9, 3.665003884233306*^9}, {
   3.665004502473667*^9, 3.665004515121391*^9}, {3.665004688429303*^9, 
   3.6650046893543563`*^9}, 3.6650768527091565`*^9, {3.6650787927691216`*^9, 
   3.6650788084940214`*^9}, {3.665078902562402*^9, 3.6650789180022845`*^9}, {
   3.6650792020685325`*^9, 3.6650792020685325`*^9}, {3.6654375532205715`*^9, 
   3.665437561520584*^9}, 3.6654378536760025`*^9, {3.6654379804831843`*^9, 
   3.6654379812131853`*^9}, {3.6654385949470654`*^9, 3.665438626861111*^9}, 
   3.6749473237065277`*^9, 3.6749480709192657`*^9, 3.6749482831904073`*^9, {
   3.6772150190244093`*^9, 3.6772150190244093`*^9}, 3.677215181154683*^9, {
   3.677215816199005*^9, 3.677215816754037*^9}, {3.6772161743054876`*^9, 
   3.677216175070532*^9}, 3.6773475138295116`*^9, {3.6773482651424313`*^9, 
   3.6773482653608313`*^9}, {3.6773485056792536`*^9, 3.677348507457657*^9}, {
   3.677348584490592*^9, 3.677348593850609*^9}, {3.6773515378721795`*^9, 
   3.67735153812178*^9}, 3.6773515727694407`*^9, {3.6773658749601994`*^9, 
   3.677365876870309*^9}, {3.6773747960014544`*^9, 3.677374796349474*^9}, {
   3.677376769072307*^9, 3.6773767693243217`*^9}, 3.6916271955115805`*^9, 
   3.6916274420286803`*^9, {3.6916275645046854`*^9, 3.6916275648727064`*^9}, 
   3.691627688863798*^9, {3.6917051113364263`*^9, 3.6917051208159685`*^9}, {
   3.6917085315470514`*^9, 3.691708532894128*^9}, {3.704945603940039*^9, 
   3.70494564431791*^9}, {3.70495084091319*^9, 3.70495084120959*^9}, {
   3.7049510648468847`*^9, 3.7049510651120853`*^9}, {3.704992750178424*^9, 
   3.704992750178424*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}, {3.674948441881484*^9, 3.6749484578483973`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"n", "-", "1"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
       RowBox[{"n", "-", "1"}]]}], ")"}]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.4956612341427097`*^9, 3.4956612366427135`*^9}, {
   3.495661466643035*^9, 3.4956615179331074`*^9}, {3.495662078776306*^9, 
   3.4956620926663256`*^9}, {3.495662256946555*^9, 3.495662259396559*^9}, {
   3.4956625025768995`*^9, 3.4956625261869326`*^9}, {3.4956632462279406`*^9, 
   3.4956633094980288`*^9}, 3.495663998918994*^9, {3.4956644892796803`*^9, 
   3.4956645035697007`*^9}, 3.495664644999899*^9, {3.4956649976003923`*^9, 
   3.4956650260304317`*^9}, 3.495665112520553*^9, 3.495665461771042*^9, {
   3.495666875785483*^9, 3.4956668919003115`*^9}, {3.5325377187562304`*^9, 
   3.5325377350741634`*^9}, {3.532537836964991*^9, 3.532537836964991*^9}, {
   3.5418772447423954`*^9, 3.5418772447423954`*^9}, {3.5418772765424395`*^9, 
   3.5418772800524445`*^9}, {3.5418790150948734`*^9, 
   3.5418790499849224`*^9}, {3.541880174556497*^9, 3.5418801814265065`*^9}, {
   3.541880943257573*^9, 3.541880943257573*^9}, {3.541886992360258*^9, 
   3.541887025940305*^9}, {3.567490246959696*^9, 3.5674902479096966`*^9}, {
   3.664475805409972*^9, 3.664475805409972*^9}, {3.664476461078474*^9, 
   3.664476464231654*^9}, {3.6644767068315306`*^9, 3.6644767095056834`*^9}, {
   3.6654375938596306`*^9, 3.6654375956196327`*^9}, {3.6654386982182136`*^9, 
   3.6654386992082148`*^9}, {3.6654388641494513`*^9, 
   3.6654388641494513`*^9}, {3.674948071724312*^9, 3.6749480726393642`*^9}, {
   3.6772146933557825`*^9, 3.6772146933557825`*^9}, {3.6772158766404624`*^9, 
   3.6772158766414623`*^9}, {3.6772159488235908`*^9, 
   3.6772159488235908`*^9}, {3.6772163851415467`*^9, 
   3.6772163851415467`*^9}, {3.677260367596634*^9, 3.677260367596634*^9}, {
   3.6773476276785116`*^9, 3.6773476276785116`*^9}, {3.67734771224626*^9, 
   3.67734771224626*^9}, {3.67734775759554*^9, 3.67734775759554*^9}, {
   3.677348693659584*^9, 3.677348693659584*^9}, {3.6773487471988783`*^9, 
   3.6773487471988783`*^9}, {3.6916274424337034`*^9, 
   3.6916274428887296`*^9}, {3.6916275656247497`*^9, 
   3.6916275663067884`*^9}, {3.6917050519160275`*^9, 
   3.6917050519160275`*^9}, {3.691707729335167*^9, 3.6917077341644435`*^9}, {
   3.704947421114831*^9, 3.704947421114831*^9}, {3.7049480657235675`*^9, 
   3.7049480657235675`*^9}, {3.704948140315299*^9, 3.7049481454633083`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.4978083089530945`*^9, 
   3.4978083143531017`*^9}, {3.4978084473132877`*^9, 
   3.4978084750933266`*^9}, {3.497808510103376*^9, 3.4978085176833863`*^9}, {
   3.4978090871541834`*^9, 3.4978091125642195`*^9}, {3.4978091437242627`*^9, 
   3.497809166464295*^9}, 3.497809198114339*^9, {3.4978093447445445`*^9, 
   3.4978093512745533`*^9}, {3.497809459704705*^9, 3.4978094655147133`*^9}, 
   3.4978096024249053`*^9, {3.4978096874850245`*^9, 3.49780970627505*^9}, {
   3.49800845286043*^9, 3.498008453750431*^9}, {3.567094006345663*^9, 
   3.567094006345663*^9}, {3.665000002525285*^9, 3.6650000038853626`*^9}, {
   3.6650000784006248`*^9, 3.6650000785456333`*^9}, {3.6650021829920006`*^9, 
   3.6650021829920006`*^9}, {3.665003918951292*^9, 3.665003918951292*^9}, {
   3.665004590512703*^9, 3.665004590512703*^9}, {3.6650789318130746`*^9, 
   3.6650789318130746`*^9}, {3.665079204982699*^9, 3.665079204982699*^9}, {
   3.6654376971377783`*^9, 3.6654376971377783`*^9}, {3.6654386328811197`*^9, 
   3.6654386328811197`*^9}, {3.6772147012622347`*^9, 
   3.6772147012622347`*^9}, {3.6773486256122646`*^9, 
   3.6773486256122646`*^9}, {3.6916275682569003`*^9, 
   3.6916275682569003`*^9}, {3.691705126311283*^9, 3.691705126311283*^9}, {
   3.7049456312742877`*^9, 3.7049456343474927`*^9}, {3.704950845719998*^9, 
   3.704950845719998*^9}, {3.7049927523265467`*^9, 3.704992752327547*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox["b", "2"]}]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"n", "-", "1"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"n", "-", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5633886271303563`*^9, 3.5633887007624855`*^9}, {3.5633891677251387`*^9, 
   3.5633891925451736`*^9}, 3.5967476646849966`*^9, 3.596747710585061*^9, {
   3.5967479530654*^9, 3.596747968625422*^9}, {3.596748193595737*^9, 
   3.596748199005745*^9}, {3.6649925358951387`*^9, 3.6649925359681425`*^9}, {
   3.6649926685957284`*^9, 3.6649926685997286`*^9}, {3.6650037523147607`*^9, 
   3.66500382170973*^9}, {3.6650040507058277`*^9, 3.6650040789904456`*^9}, 
   3.665004537506671*^9, {3.665004607407669*^9, 3.665004669744235*^9}, {
   3.6650769203670263`*^9, 3.665076978289339*^9}, {3.665079279023934*^9, 
   3.6650793065055056`*^9}, {3.665079337458276*^9, 3.6650793477958674`*^9}, {
   3.665437632239685*^9, 3.6654376732187433`*^9}, 3.6654378542560034`*^9, {
   3.665437987270194*^9, 3.6654379909201994`*^9}, {3.665438642273133*^9, 
   3.665438691288204*^9}, {3.665438764634309*^9, 3.665438777281327*^9}, {
   3.6654388199913883`*^9, 3.6654388285313997`*^9}, 3.6654388843974805`*^9, {
   3.6749473237155285`*^9, 3.6749473237195287`*^9}, {3.674948073449411*^9, 
   3.6749480756985397`*^9}, {3.6749482831994076`*^9, 
   3.6749482832034082`*^9}, {3.677214544671278*^9, 3.677214554859861*^9}, {
   3.677214710045737*^9, 3.6772147659909368`*^9}, {3.6772148757472143`*^9, 
   3.677214886485829*^9}, {3.6772149878216248`*^9, 3.6772149960380945`*^9}, {
   3.6772158884271364`*^9, 3.677215918304845*^9}, 3.677215960155239*^9, {
   3.677216007828966*^9, 3.6772160361115837`*^9}, 3.6772161852791157`*^9, {
   3.6772162777554045`*^9, 3.677216294589368*^9}, {3.677216404411649*^9, 
   3.6772164132841563`*^9}, 3.677260348939001*^9, {3.6772604221967297`*^9, 
   3.6772604254103355`*^9}, {3.6772725237538395`*^9, 
   3.6772725359685383`*^9}, {3.6772775681923647`*^9, 
   3.6772775688514023`*^9}, {3.677347541971961*^9, 3.6773475665420046`*^9}, {
   3.6773476463517447`*^9, 3.6773476692213845`*^9}, {3.6773477198278737`*^9, 
   3.677347732183095*^9}, 3.677347771354764*^9, {3.6773478854221644`*^9, 
   3.6773479185410223`*^9}, 3.677347948602275*^9, {3.677348640494691*^9, 
   3.677348672646347*^9}, {3.677348766418112*^9, 3.6773488210962076`*^9}, {
   3.6773496618596845`*^9, 3.677349681624919*^9}, 3.6773521680916853`*^9, {
   3.677374658395583*^9, 3.677374739302211*^9}, {3.6916271961126146`*^9, 
   3.6916271965926423`*^9}, {3.691627443325754*^9, 3.691627445061854*^9}, {
   3.6916275689849415`*^9, 3.6916275711020627`*^9}, 3.6916276890328083`*^9, {
   3.6917050613385663`*^9, 3.691705070737104*^9}, {3.6917076878757963`*^9, 
   3.6917076896878996`*^9}, 3.691707741260849*^9, {3.6917081548535056`*^9, 
   3.691708155090519*^9}, {3.704943133914592*^9, 3.7049431524182243`*^9}, {
   3.704945526134702*^9, 3.704945539100325*^9}, {3.704947333810077*^9, 
   3.7049473624985275`*^9}, {3.7049480151422787`*^9, 3.704948034285512*^9}, {
   3.7049481707539525`*^9, 3.70494817501276*^9}, {3.7049482492551785`*^9, 
   3.704948324903512*^9}, {3.704948359477173*^9, 3.704948360163574*^9}, {
   3.7049485993633986`*^9, 3.7049486226582394`*^9}, {3.704949023901555*^9, 
   3.7049490268811607`*^9}, {3.7049503453367133`*^9, 3.704950345726714*^9}, {
   3.7049503854015837`*^9, 3.70495040037761*^9}, {3.7049504379742794`*^9, 
   3.7049504382862806`*^9}, 3.7049507737022715`*^9, {3.7049508162953463`*^9, 
   3.704950819415352*^9}, 3.7049510154531975`*^9, {3.7049926206010127`*^9, 
   3.7049926337707663`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.665004105071937*^9, 3.665004109207174*^9}, 
   3.691627445890901*^9, 3.691630886781872*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sec", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "^", "2"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Sec", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "m"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.563389015634926*^9, 3.5633890160749264`*^9}, 
   3.563389060894989*^9, 3.563389107955055*^9, {3.563389216425207*^9, 
   3.5633892231252165`*^9}, 3.563393581121319*^9, 3.563393658761428*^9, {
   3.563393884371744*^9, 3.5633939298743076`*^9}, 3.5633939787243757`*^9, {
   3.596762994575632*^9, 3.5967630098956537`*^9}, 3.596763042245699*^9, {
   3.6649925594244843`*^9, 3.6649925594844875`*^9}, {3.6649926412751656`*^9, 
   3.664992641281166*^9}, 3.664992759211911*^9, 3.6649927905657043`*^9, 
   3.6650038679953775`*^9, {3.665003926206707*^9, 3.6650039471619053`*^9}, {
   3.6650040002129393`*^9, 3.665004032061761*^9}, 3.6650041200357933`*^9, 
   3.6650044278704004`*^9, {3.665004709119487*^9, 3.6650047826566925`*^9}, 
   3.6650048366767826`*^9, {3.6650770203497453`*^9, 3.6650770460162134`*^9}, {
   3.6650793678480144`*^9, 3.6650794307376113`*^9}, {3.6652074280307508`*^9, 
   3.665207463916802*^9}, {3.665437703437787*^9, 3.6654377272188215`*^9}, 
   3.6654378151249475`*^9, {3.665437904683076*^9, 3.6654379093530827`*^9}, {
   3.6654379938102036`*^9, 3.665438014272233*^9}, {3.6654389180935287`*^9, 
   3.665438954668581*^9}, 3.66543899638264*^9, {3.665439061060733*^9, 
   3.665439085859769*^9}, {3.665439199623932*^9, 3.6654392072049427`*^9}, 
   3.674947347458886*^9, 3.674947379711731*^9, 3.6749475756259365`*^9, {
   3.6749478961832714`*^9, 3.6749479213967137`*^9}, 3.6749479596109*^9, {
   3.67494807990578*^9, 3.674948081232856*^9}, 3.674948350946283*^9, 
   3.6749483827221003`*^9, 3.674948441917486*^9, 3.6749488753302755`*^9, 
   3.677215028981979*^9, {3.677215070724366*^9, 3.677215098007927*^9}, {
   3.67721598989194*^9, 3.677215990312964*^9}, 3.677216084849371*^9, {
   3.6772164520583744`*^9, 3.6772164978749948`*^9}, 3.6772602913124995`*^9, {
   3.6772604369231553`*^9, 3.677260493083254*^9}, {3.677271980237752*^9, 
   3.677271988124203*^9}, 3.677272942433787*^9, {3.677273219162615*^9, 
   3.677273221135728*^9}, 3.677273748738905*^9, {3.677347994481956*^9, 
   3.677347997321161*^9}, {3.6773480372572308`*^9, 3.677348102106545*^9}, {
   3.6773488507986603`*^9, 3.6773489264431925`*^9}, {3.6773492849162226`*^9, 
   3.677349287552627*^9}, {3.677349828280777*^9, 3.677349836954392*^9}, {
   3.677366544149475*^9, 3.6773665483997183`*^9}, {3.6773719039930406`*^9, 
   3.677371949248629*^9}, {3.677372024845953*^9, 3.6773720292872066`*^9}, {
   3.677372731675381*^9, 3.677372734157523*^9}, {3.6773727652713027`*^9, 
   3.677372772279704*^9}, 3.6773743047873583`*^9, {3.6773747494717927`*^9, 
   3.677374776335329*^9}, {3.6916271970176663`*^9, 3.6916271989917793`*^9}, {
   3.6916274462589226`*^9, 3.691627448648059*^9}, {3.691627572986171*^9, 
   3.69162757664738*^9}, {3.691627942036279*^9, 3.6916279775723114`*^9}, 
   3.69163100508004*^9, 3.6916996267097235`*^9, {3.691705129459463*^9, 
   3.6917051320616117`*^9}, {3.6917051747270517`*^9, 
   3.6917051840235834`*^9}, {3.6917077028166504`*^9, 3.691707708729989*^9}, {
   3.6917077606089563`*^9, 3.6917077735316954`*^9}, 3.691708178487857*^9, {
   3.704943089547114*^9, 3.7049431069099445`*^9}, {3.7049437474367805`*^9, 
   3.704943751338787*^9}, {3.704945499162255*^9, 3.704945516259885*^9}, 
   3.7049455479299407`*^9, {3.704945738272276*^9, 3.704945754629105*^9}, {
   3.704947602389951*^9, 3.7049476146827726`*^9}, {3.704947792601486*^9, 
   3.7049478167211285`*^9}, {3.7049480909840117`*^9, 3.7049481077852416`*^9}, 
   3.704948160113734*^9, {3.704948636856264*^9, 3.7049486625671096`*^9}, 
   3.7049498168358917`*^9, {3.7049503545563297`*^9, 3.70495035480593*^9}, {
   3.704950797323713*^9, 3.7049508035481234`*^9}, 3.704951003983177*^9, {
   3.704992675538155*^9, 3.704992683247596*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
      "\[And]", " ", 
      RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, 
   3.56203042461959*^9, 3.5620880721126423`*^9, {3.5620933445200233`*^9, 
   3.5620933547300377`*^9}, {3.562093987920924*^9, 3.56209399237093*^9}, {
   3.5620995170537643`*^9, 3.5620995170537643`*^9}, {3.5621013517663326`*^9, 
   3.562101351996333*^9}, {3.5633361467746754`*^9, 3.563336146794675*^9}, {
   3.563388115059457*^9, 3.563388116198259*^9}, {3.5633881657127457`*^9, 
   3.5633881705487547`*^9}, 3.5633885482410173`*^9, {3.5633927828402014`*^9, 
   3.5633927836102023`*^9}, 3.563396812908344*^9, 3.59674766011499*^9, {
   3.613099721338788*^9, 3.6130997216187887`*^9}, 3.6131011113908253`*^9, 
   3.613154225057025*^9, {3.614296005243228*^9, 3.6142960064432964`*^9}, {
   3.6649925358281345`*^9, 3.664992535838135*^9}, 3.664992668576727*^9, {
   3.6650036251084847`*^9, 3.6650036284376755`*^9}, 3.6650036795415983`*^9, 
   3.665003757264044*^9, {3.665003881107127*^9, 3.665003884233306*^9}, {
   3.665004502473667*^9, 3.665004515121391*^9}, {3.665004688429303*^9, 
   3.6650046893543563`*^9}, 3.6650768527091565`*^9, {3.6650787927691216`*^9, 
   3.6650788084940214`*^9}, {3.665078902562402*^9, 3.6650789180022845`*^9}, {
   3.6650792020685325`*^9, 3.6650792020685325`*^9}, {3.6654375532205715`*^9, 
   3.665437561520584*^9}, 3.6654378536760025`*^9, {3.6654379804831843`*^9, 
   3.6654379812131853`*^9}, {3.6654385949470654`*^9, 3.665438626861111*^9}, 
   3.6749473237065277`*^9, 3.6749480709192657`*^9, 3.6749482831904073`*^9, {
   3.6772150190244093`*^9, 3.6772150190244093`*^9}, 3.677215181154683*^9, {
   3.677215816199005*^9, 3.677215816754037*^9}, {3.691626589993947*^9, 
   3.69162659599329*^9}, {3.6916267938166046`*^9, 3.6916267940246167`*^9}, {
   3.6916310817961483`*^9, 3.6916310820161486`*^9}, {3.691638043649313*^9, 
   3.691638043649313*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9, 
   3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
   3.4977282008387423`*^9, 3.497728208435956*^9}, {3.497728263675653*^9, 
   3.497728386635069*^9}, {3.4977284844316406`*^9, 3.497728504134475*^9}, {
   3.563388186273582*^9, 3.563388186273582*^9}, {3.5633887128525066`*^9, 
   3.5633887241001263`*^9}, {3.674948441881484*^9, 3.6749484578483973`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"b", " ", 
         RowBox[{"Csc", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], ")"}]}], 
   "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.4956612341427097`*^9, 3.4956612366427135`*^9}, {
   3.495661466643035*^9, 3.4956615179331074`*^9}, {3.495662078776306*^9, 
   3.4956620926663256`*^9}, {3.495662256946555*^9, 3.495662259396559*^9}, {
   3.4956625025768995`*^9, 3.4956625261869326`*^9}, {3.4956632462279406`*^9, 
   3.4956633094980288`*^9}, 3.495663998918994*^9, {3.4956644892796803`*^9, 
   3.4956645035697007`*^9}, 3.495664644999899*^9, {3.4956649976003923`*^9, 
   3.4956650260304317`*^9}, 3.495665112520553*^9, 3.495665461771042*^9, {
   3.495666875785483*^9, 3.4956668919003115`*^9}, {3.5325377187562304`*^9, 
   3.5325377350741634`*^9}, {3.532537836964991*^9, 3.532537836964991*^9}, {
   3.5418772447423954`*^9, 3.5418772447423954`*^9}, {3.5418772765424395`*^9, 
   3.5418772800524445`*^9}, {3.5418790150948734`*^9, 
   3.5418790499849224`*^9}, {3.541880174556497*^9, 3.5418801814265065`*^9}, {
   3.541880943257573*^9, 3.541880943257573*^9}, {3.541886992360258*^9, 
   3.541887025940305*^9}, {3.567490246959696*^9, 3.5674902479096966`*^9}, {
   3.664475805409972*^9, 3.664475805409972*^9}, {3.664476461078474*^9, 
   3.664476464231654*^9}, {3.6644767068315306`*^9, 3.6644767095056834`*^9}, {
   3.6654375938596306`*^9, 3.6654375956196327`*^9}, {3.6654386982182136`*^9, 
   3.6654386992082148`*^9}, {3.6654388641494513`*^9, 
   3.6654388641494513`*^9}, {3.674948071724312*^9, 3.6749480726393642`*^9}, {
   3.6772146933557825`*^9, 3.6772146933557825`*^9}, {3.6772158766404624`*^9, 
   3.6772158766414623`*^9}, {3.6772159488235908`*^9, 
   3.6772159488235908`*^9}, {3.691626704285484*^9, 3.691626704285484*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497727769376384*^9, 3.4977279239102554`*^9}, {
   3.4977279951087804`*^9, 3.497728007354802*^9}, {3.4978083089530945`*^9, 
   3.4978083143531017`*^9}, {3.4978084473132877`*^9, 
   3.4978084750933266`*^9}, {3.497808510103376*^9, 3.4978085176833863`*^9}, {
   3.4978090871541834`*^9, 3.4978091125642195`*^9}, {3.4978091437242627`*^9, 
   3.497809166464295*^9}, 3.497809198114339*^9, {3.4978093447445445`*^9, 
   3.4978093512745533`*^9}, {3.497809459704705*^9, 3.4978094655147133`*^9}, 
   3.4978096024249053`*^9, {3.4978096874850245`*^9, 3.49780970627505*^9}, {
   3.49800845286043*^9, 3.498008453750431*^9}, {3.567094006345663*^9, 
   3.567094006345663*^9}, {3.665000002525285*^9, 3.6650000038853626`*^9}, {
   3.6650000784006248`*^9, 3.6650000785456333`*^9}, {3.6650021829920006`*^9, 
   3.6650021829920006`*^9}, {3.665003918951292*^9, 3.665003918951292*^9}, {
   3.665004590512703*^9, 3.665004590512703*^9}, {3.6650789318130746`*^9, 
   3.6650789318130746`*^9}, {3.665079204982699*^9, 3.665079204982699*^9}, {
   3.6654376971377783`*^9, 3.6654376971377783`*^9}, {3.6654386328811197`*^9, 
   3.6654386328811197`*^9}, {3.6772147012622347`*^9, 
   3.6772147012622347`*^9}, {3.691638093056383*^9, 3.691638093056383*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", "b"}], ")"}], 
      RowBox[{"IntPart", "[", "n", "]"}]]}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"FracPart", "[", "n", "]"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Csc", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
    RowBox[{"FracPart", "[", "n", "]"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"m", "-", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, 
   3.4976398417426867`*^9, {3.497728173385894*^9, 3.497728181940709*^9}, 
   3.49772847237282*^9, {3.499131610062951*^9, 3.499131627982976*^9}, 
   3.5157913100709004`*^9, {3.5620995341037884`*^9, 3.5620995568338203`*^9}, {
   3.5633361468146753`*^9, 3.5633361468546753`*^9}, 3.5633883132890053`*^9, {
   3.5633886271303563`*^9, 3.5633887007624855`*^9}, {3.5633891677251387`*^9, 
   3.5633891925451736`*^9}, 3.5967476646849966`*^9, 3.596747710585061*^9, {
   3.5967479530654*^9, 3.596747968625422*^9}, {3.596748193595737*^9, 
   3.596748199005745*^9}, {3.6649925358951387`*^9, 3.6649925359681425`*^9}, {
   3.6649926685957284`*^9, 3.6649926685997286`*^9}, {3.6650037523147607`*^9, 
   3.66500382170973*^9}, {3.6650040507058277`*^9, 3.6650040789904456`*^9}, 
   3.665004537506671*^9, {3.665004607407669*^9, 3.665004669744235*^9}, {
   3.6650769203670263`*^9, 3.665076978289339*^9}, {3.665079279023934*^9, 
   3.6650793065055056`*^9}, {3.665079337458276*^9, 3.6650793477958674`*^9}, {
   3.665437632239685*^9, 3.6654376732187433`*^9}, 3.6654378542560034`*^9, {
   3.665437987270194*^9, 3.6654379909201994`*^9}, {3.665438642273133*^9, 
   3.665438691288204*^9}, {3.665438764634309*^9, 3.665438777281327*^9}, {
   3.6654388199913883`*^9, 3.6654388285313997`*^9}, 3.6654388843974805`*^9, {
   3.6749473237155285`*^9, 3.6749473237195287`*^9}, {3.674948073449411*^9, 
   3.6749480756985397`*^9}, {3.6749482831994076`*^9, 
   3.6749482832034082`*^9}, {3.677214544671278*^9, 3.677214554859861*^9}, {
   3.677214710045737*^9, 3.6772147659909368`*^9}, {3.6772148757472143`*^9, 
   3.677214886485829*^9}, {3.6772149878216248`*^9, 3.6772149960380945`*^9}, {
   3.6772158884271364`*^9, 3.677215918304845*^9}, 3.677215960155239*^9, {
   3.677216007828966*^9, 3.6772160361115837`*^9}, {3.677277591723711*^9, 
   3.6772776024363236`*^9}, {3.6916266117821927`*^9, 3.691626632551381*^9}, {
   3.6916267137550254`*^9, 3.6916267516941957`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.665004105071937*^9, 3.665004109207174*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"csc", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "*", "b"}], ")"}], "^", 
     RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"FracPart", "[", "n", "]"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", "*", 
       RowBox[{"Csc", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
     RowBox[{"FracPart", "[", "n", "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4977275877920647`*^9, 
   3.497728151358655*^9, 3.497728238481609*^9, 3.497728444635971*^9, 
   3.4979921241661515`*^9, {3.499131610102951*^9, 3.499131628022976*^9}, 
   3.5609703680706596`*^9, 3.560970656329911*^9, {3.5633361468646755`*^9, 
   3.5633361469046755`*^9}, 3.5633366557253876`*^9, {3.563388374066712*^9, 
   3.5633883763131156`*^9}, {3.563389015634926*^9, 3.5633890160749264`*^9}, 
   3.563389060894989*^9, 3.563389107955055*^9, {3.563389216425207*^9, 
   3.5633892231252165`*^9}, 3.563393581121319*^9, 3.563393658761428*^9, {
   3.563393884371744*^9, 3.5633939298743076`*^9}, 3.5633939787243757`*^9, {
   3.596762994575632*^9, 3.5967630098956537`*^9}, 3.596763042245699*^9, {
   3.6649925594244843`*^9, 3.6649925594844875`*^9}, {3.6649926412751656`*^9, 
   3.664992641281166*^9}, 3.664992759211911*^9, 3.6649927905657043`*^9, 
   3.6650038679953775`*^9, {3.665003926206707*^9, 3.6650039471619053`*^9}, {
   3.6650040002129393`*^9, 3.665004032061761*^9}, 3.6650041200357933`*^9, 
   3.6650044278704004`*^9, {3.665004709119487*^9, 3.6650047826566925`*^9}, 
   3.6650048366767826`*^9, {3.6650770203497453`*^9, 3.6650770460162134`*^9}, {
   3.6650793678480144`*^9, 3.6650794307376113`*^9}, {3.6652074280307508`*^9, 
   3.665207463916802*^9}, {3.665437703437787*^9, 3.6654377272188215`*^9}, 
   3.6654378151249475`*^9, {3.665437904683076*^9, 3.6654379093530827`*^9}, {
   3.6654379938102036`*^9, 3.665438014272233*^9}, {3.6654389180935287`*^9, 
   3.665438954668581*^9}, 3.66543899638264*^9, {3.665439061060733*^9, 
   3.665439085859769*^9}, {3.665439199623932*^9, 3.6654392072049427`*^9}, 
   3.674947347458886*^9, 3.674947379711731*^9, 3.6749475756259365`*^9, {
   3.6749478961832714`*^9, 3.6749479213967137`*^9}, 3.6749479596109*^9, {
   3.67494807990578*^9, 3.674948081232856*^9}, 3.674948350946283*^9, 
   3.6749483827221003`*^9, 3.674948441917486*^9, 3.6749488753302755`*^9, 
   3.677215028981979*^9, {3.677215070724366*^9, 3.677215098007927*^9}, {
   3.67721598989194*^9, 3.677215990312964*^9}, {3.677216084849371*^9, 
   3.677216139532499*^9}, {3.6916380474793186`*^9, 3.691638050749323*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "a", " ", "sin", "(", "e", "+", "f", " ", "x", ")", 
      ")", "^", "m", " ", "(", "b", " ", "trg", "(", "e", "+", "f", " ", "x", 
      ")", ")", "^", "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 4284, 63, 53, "Subsubtitle"],
Cell[4854, 87, 1661, 35, 264, "Code"],
Cell[6518, 124, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[6622, 129, 6922, 111, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[13569, 244, 4055, 67, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[17649, 315, 4918, 86, 144, "Subsubtitle"],
Cell[22570, 403, 1533, 27, 96, "Subsubsection"],
Cell[24106, 432, 1536, 28, 69, "Subsubsection"],
Cell[25645, 462, 1351, 25, 69, "Subsubsection"],
Cell[26999, 489, 2472, 57, 179, "Subsubtitle"],
Cell[29474, 548, 817, 11, 93, "Subsubsection"],
Cell[30294, 561, 3149, 74, 282, "Code"],
Cell[33446, 637, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[33572, 644, 4924, 84, 144, "Subsubtitle"],
Cell[38499, 730, 421, 8, 93, "Subsubsection"],
Cell[38923, 740, 2520, 63, 132, "Subsubsection"],
Cell[41446, 805, 757, 16, 99, "Subsubsection"],
Cell[42206, 823, 2738, 60, 202, "Subsubtitle"],
Cell[44947, 885, 815, 11, 93, "Subsubsection"],
Cell[45765, 898, 3514, 83, 282, "Code"],
Cell[49282, 983, 3797, 88, 310, "Code"],
Cell[53082, 1073, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[53208, 1080, 4140, 73, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[57373, 1157, 4681, 82, 144, "Subsubtitle"],
Cell[62057, 1241, 366, 5, 93, "Subsubsection"],
Cell[62426, 1248, 418, 6, 65, "Subsubsection"],
Cell[62847, 1256, 1273, 23, 69, "Subsubsection"],
Cell[64123, 1281, 4057, 95, 316, "Subsubtitle"],
Cell[68183, 1378, 816, 11, 93, "Subsubsection"],
Cell[69002, 1391, 4976, 123, 351, "Code"],
Cell[73981, 1516, 4874, 121, 379, "Code"],
Cell[78858, 1639, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[78984, 1646, 4859, 85, 144, "Subsubtitle"],
Cell[83846, 1733, 418, 6, 93, "Subsubsection"],
Cell[84267, 1741, 442, 6, 65, "Subsubsection"],
Cell[84712, 1749, 1492, 26, 69, "Subsubsection"],
Cell[86207, 1777, 3958, 91, 312, "Subsubtitle"],
Cell[90168, 1870, 819, 11, 93, "Subsubsection"],
Cell[90990, 1883, 4558, 111, 351, "Code"],
Cell[95551, 1996, 4501, 110, 379, "Code"],
Cell[100055, 2108, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[100193, 2116, 4896, 84, 144, "Subsubtitle"],
Cell[105092, 2202, 442, 6, 93, "Subsubsection"],
Cell[105537, 2210, 466, 6, 65, "Subsubsection"],
Cell[106006, 2218, 1311, 23, 69, "Subsubsection"],
Cell[107320, 2243, 3877, 90, 316, "Subsubtitle"],
Cell[111200, 2335, 816, 11, 93, "Subsubsection"],
Cell[112019, 2348, 4384, 109, 351, "Code"],
Cell[116406, 2459, 4457, 110, 379, "Code"],
Cell[120866, 2571, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[120992, 2578, 4781, 77, 144, "Subsubtitle"],
Cell[125776, 2657, 1253, 17, 93, "Subsubsection"],
Cell[127032, 2676, 2800, 54, 124, "Subsubsection"],
Cell[129835, 2732, 1191, 16, 65, "Subsubsection"],
Cell[131029, 2750, 3076, 68, 202, "Subsubtitle"],
Cell[134108, 2820, 815, 11, 93, "Subsubsection"],
Cell[134926, 2833, 3066, 69, 282, "Code"],
Cell[137995, 2904, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[138121, 2911, 4787, 78, 184, "Subsubtitle"],
Cell[142911, 2991, 1253, 17, 93, "Subsubsection"],
Cell[144167, 3010, 2736, 53, 124, "Subsubsection"],
Cell[146906, 3065, 1191, 16, 65, "Subsubsection"],
Cell[148100, 3083, 3182, 71, 202, "Subsubtitle"],
Cell[151285, 3156, 819, 11, 93, "Subsubsection"],
Cell[152107, 3169, 3147, 73, 282, "Code"],
Cell[155257, 3244, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[155383, 3251, 5358, 91, 144, "Subsubtitle"],
Cell[160744, 3344, 499, 9, 93, "Subsubsection"],
Cell[161246, 3355, 2403, 54, 113, "Subsubsection"],
Cell[163652, 3411, 1377, 23, 69, "Subsubsection"],
Cell[165032, 3436, 3553, 77, 173, "Subsubtitle"],
Cell[168588, 3515, 771, 11, 93, "Subsubsection"],
Cell[169362, 3528, 4448, 94, 282, "Code"],
Cell[173813, 3624, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[173939, 3631, 5438, 92, 144, "Subsubtitle"],
Cell[179380, 3725, 445, 8, 93, "Subsubsection"],
Cell[179828, 3735, 3678, 95, 118, "Subsubsection"],
Cell[183509, 3832, 3308, 57, 69, "Subsubsection"],
Cell[186820, 3891, 1553, 29, 69, "Subsubsection"],
Cell[188376, 3922, 3666, 82, 181, "Subsubtitle"],
Cell[192045, 4006, 771, 11, 93, "Subsubsection"],
Cell[192819, 4019, 5075, 113, 351, "Code"],
Cell[197897, 4134, 5122, 114, 379, "Code"],
Cell[203022, 4250, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[203148, 4257, 5312, 85, 144, "Subsubtitle"],
Cell[208463, 4344, 1617, 23, 93, "Subsubsection"],
Cell[210083, 4369, 2516, 49, 153, "Subsubsection"],
Cell[212602, 4420, 2148, 48, 103, "Subsubsection"],
Cell[214753, 4470, 5294, 92, 130, "Subsubsection"],
Cell[220050, 4564, 1743, 24, 65, "Subsubsection"],
Cell[221796, 4590, 8172, 210, 884, "Subsubtitle"],
Cell[229971, 4802, 817, 11, 93, "Subsubsection"],
Cell[230791, 4815, 5577, 131, 351, "Code"],
Cell[236371, 4948, 5134, 118, 379, "Code"],
Cell[241508, 5068, 5212, 124, 379, "Code"],
Cell[246723, 5194, 4993, 119, 379, "Code"],
Cell[251719, 5315, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[251857, 5323, 4533, 80, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[256415, 5407, 5227, 90, 144, "Subsubtitle"],
Cell[261645, 5499, 1581, 28, 96, "Subsubsection"],
Cell[263229, 5529, 3346, 69, 179, "Subsubtitle"],
Cell[266578, 5600, 817, 11, 93, "Subsubsection"],
Cell[267398, 5613, 3655, 81, 282, "Code"],
Cell[271056, 5696, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[271182, 5703, 4272, 75, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[275479, 5782, 4835, 83, 144, "Subsubtitle"],
Cell[280317, 5867, 1357, 24, 96, "Subsubsection"],
Cell[281677, 5893, 3991, 92, 312, "Subsubtitle"],
Cell[285671, 5987, 816, 11, 93, "Subsubsection"],
Cell[286490, 6000, 4650, 113, 351, "Code"],
Cell[291143, 6115, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[291269, 6122, 5066, 85, 144, "Subsubtitle"],
Cell[296338, 6209, 1342, 22, 96, "Subsubsection"],
Cell[297683, 6233, 4591, 103, 344, "Subsubtitle"],
Cell[302277, 6338, 816, 11, 93, "Subsubsection"],
Cell[303096, 6351, 4574, 110, 351, "Code"],
Cell[307673, 6463, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[307811, 6471, 4343, 76, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[312179, 6551, 4933, 86, 144, "Subsubtitle"],
Cell[317115, 6639, 1447, 26, 96, "Subsubsection"],
Cell[318565, 6667, 4038, 93, 316, "Subsubtitle"],
Cell[322606, 6762, 816, 11, 93, "Subsubsection"],
Cell[323425, 6775, 4847, 118, 351, "Code"],
Cell[328275, 6895, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[328401, 6902, 5215, 90, 144, "Subsubtitle"],
Cell[333619, 6994, 1456, 26, 96, "Subsubsection"],
Cell[335078, 7022, 4295, 95, 316, "Subsubtitle"],
Cell[339376, 7119, 816, 11, 93, "Subsubsection"],
Cell[340195, 7132, 4704, 114, 351, "Code"],
Cell[344902, 7248, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[345040, 7256, 4907, 86, 144, "Subsubtitle"],
Cell[349950, 7344, 1434, 25, 96, "Subsubsection"],
Cell[351387, 7371, 4074, 93, 312, "Subsubtitle"],
Cell[355464, 7466, 817, 11, 93, "Subsubsection"],
Cell[356284, 7479, 4533, 111, 351, "Code"],
Cell[360820, 7592, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[360946, 7599, 5001, 85, 144, "Subsubtitle"],
Cell[365950, 7686, 1261, 22, 96, "Subsubsection"],
Cell[367214, 7710, 4079, 92, 316, "Subsubtitle"],
Cell[371296, 7804, 816, 11, 93, "Subsubsection"],
Cell[372115, 7817, 4532, 110, 351, "Code"],
Cell[376650, 7929, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[376776, 7936, 4582, 81, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[381383, 8021, 6732, 112, 144, "Subsubtitle"],
Cell[388118, 8135, 1301, 17, 93, "Subsubsection"],
Cell[389422, 8154, 3433, 62, 76, "Subsubsection"],
Cell[392858, 8218, 2291, 40, 104, "Subsubsection"],
Cell[395152, 8260, 5623, 105, 173, "Subsubtitle"],
Cell[400778, 8367, 865, 12, 93, "Subsubsection"],
Cell[401646, 8381, 6222, 119, 282, "Code"],
Cell[407871, 8502, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[407997, 8509, 6716, 109, 144, "Subsubtitle"],
Cell[414716, 8620, 1301, 17, 93, "Subsubsection"],
Cell[416020, 8639, 3587, 64, 76, "Subsubsection"],
Cell[419610, 8705, 2252, 38, 69, "Subsubsection"],
Cell[421865, 8745, 6049, 113, 173, "Subsubtitle"],
Cell[427917, 8860, 865, 12, 93, "Subsubsection"],
Cell[428785, 8874, 6575, 127, 282, "Code"],
Cell[435363, 9003, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[435489, 9010, 6462, 106, 144, "Subsubtitle"],
Cell[441954, 9118, 1301, 17, 93, "Subsubsection"],
Cell[443258, 9137, 3533, 63, 76, "Subsubsection"],
Cell[446794, 9202, 1993, 33, 69, "Subsubsection"],
Cell[448790, 9237, 6155, 114, 173, "Subsubtitle"],
Cell[454948, 9353, 865, 12, 93, "Subsubsection"],
Cell[455816, 9367, 6295, 122, 282, "Code"],
Cell[462114, 9491, 89, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[462264, 9500, 5739, 96, 53, "Subsubtitle"],
Cell[468006, 9598, 1301, 17, 93, "Subsubsection"],
Cell[469310, 9617, 2815, 52, 76, "Subsubsection"],
Cell[472128, 9671, 1733, 29, 69, "Subsubsection"],
Cell[473864, 9702, 4322, 87, 144, "Subsubtitle"],
Cell[478189, 9791, 817, 11, 93, "Subsubsection"],
Cell[479009, 9804, 4280, 92, 282, "Code"],
Cell[483292, 9898, 89, 2, 93, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)